Lines 138-143
BEGIN {
Link Here
|
138 |
IsItemOnHoldAndFound |
138 |
IsItemOnHoldAndFound |
139 |
|
139 |
|
140 |
GetMaxPatronHoldsForRecord |
140 |
GetMaxPatronHoldsForRecord |
|
|
141 |
|
142 |
&AddReserveGroup |
143 |
&DeleteReserveGroup |
144 |
&GetReserveGroupReserves |
141 |
); |
145 |
); |
142 |
@EXPORT_OK = qw( MergeHolds ); |
146 |
@EXPORT_OK = qw( MergeHolds ); |
143 |
} |
147 |
} |
Lines 163-169
sub AddReserve {
Link Here
|
163 |
my ( |
167 |
my ( |
164 |
$branch, $borrowernumber, $biblionumber, $bibitems, |
168 |
$branch, $borrowernumber, $biblionumber, $bibitems, |
165 |
$priority, $resdate, $expdate, $notes, |
169 |
$priority, $resdate, $expdate, $notes, |
166 |
$title, $checkitem, $found, $itemtype |
170 |
$title, $checkitem, $found, $itemtype, |
|
|
171 |
$reserve_group_id |
167 |
) = @_; |
172 |
) = @_; |
168 |
|
173 |
|
169 |
$resdate = output_pref( { str => dt_from_string( $resdate ), dateonly => 1, dateformat => 'iso' }) |
174 |
$resdate = output_pref( { str => dt_from_string( $resdate ), dateonly => 1, dateformat => 'iso' }) |
Lines 211-216
sub AddReserve {
Link Here
|
211 |
waitingdate => $waitingdate, |
216 |
waitingdate => $waitingdate, |
212 |
expirationdate => $expdate, |
217 |
expirationdate => $expdate, |
213 |
itemtype => $itemtype, |
218 |
itemtype => $itemtype, |
|
|
219 |
reserve_group_id => $reserve_group_id, |
214 |
} |
220 |
} |
215 |
)->store(); |
221 |
)->store(); |
216 |
$hold->set_waiting() if $found eq 'W'; |
222 |
$hold->set_waiting() if $found eq 'W'; |
Lines 1056-1061
sub ModReserveAffect {
Link Here
|
1056 |
$hold->itemnumber($itemnumber); |
1062 |
$hold->itemnumber($itemnumber); |
1057 |
$hold->set_waiting($transferToDo); |
1063 |
$hold->set_waiting($transferToDo); |
1058 |
|
1064 |
|
|
|
1065 |
if ($hold->reserve_group_id) { |
1066 |
# Delete other reserves from same group |
1067 |
$dbh->do(q{ |
1068 |
DELETE FROM reserves |
1069 |
WHERE reserve_group_id = ? |
1070 |
AND reserve_id != ? |
1071 |
}, undef, $hold->reserve_group_id, $hold->reserve_id); |
1072 |
DeleteReserveGroup($hold->reserve_group_id); |
1073 |
} |
1074 |
|
1059 |
_koha_notify_reserve( $hold->reserve_id ) |
1075 |
_koha_notify_reserve( $hold->reserve_id ) |
1060 |
if ( !$transferToDo && !$already_on_shelf ); |
1076 |
if ( !$transferToDo && !$already_on_shelf ); |
1061 |
|
1077 |
|
Lines 2142-2147
sub GetHoldRule {
Link Here
|
2142 |
return $sth->fetchrow_hashref(); |
2158 |
return $sth->fetchrow_hashref(); |
2143 |
} |
2159 |
} |
2144 |
|
2160 |
|
|
|
2161 |
=head2 AddReserveGroup |
2162 |
|
2163 |
my $reserve_group_id = AddReserveGroup(); |
2164 |
|
2165 |
Creates a new reserve group and returns its ID |
2166 |
|
2167 |
=cut |
2168 |
|
2169 |
sub AddReserveGroup { |
2170 |
my $dbh = C4::Context->dbh; |
2171 |
|
2172 |
$dbh->do('INSERT INTO reserve_group VALUES ()'); |
2173 |
return $dbh->last_insert_id(undef, undef, 'reserve_group', undef); |
2174 |
} |
2175 |
|
2176 |
=head2 DeleteReserveGroup |
2177 |
|
2178 |
DeleteReserveGroup($reserve_group_id); |
2179 |
|
2180 |
Delete a reserve group. Reserves that belong to this group are not removed. |
2181 |
|
2182 |
=cut |
2183 |
|
2184 |
sub DeleteReserveGroup { |
2185 |
my ($reserve_group_id) = @_; |
2186 |
|
2187 |
my $dbh = C4::Context->dbh; |
2188 |
my $query = 'DELETE FROM reserve_group WHERE reserve_group_id = ?'; |
2189 |
$dbh->do($query, undef, $reserve_group_id); |
2190 |
} |
2191 |
|
2192 |
=head2 GetReserveGroupReserves |
2193 |
|
2194 |
my @reserves = GetReserveGroupReserves($reserve_group_id); |
2195 |
|
2196 |
Fetch all reserve from a reserve group. |
2197 |
|
2198 |
=cut |
2199 |
|
2200 |
sub GetReserveGroupReserves { |
2201 |
my ($reserve_group_id) = @_; |
2202 |
|
2203 |
my $dbh = C4::Context->dbh; |
2204 |
|
2205 |
my $reserves = $dbh->selectall_arrayref(q{ |
2206 |
SELECT * FROM reserves |
2207 |
WHERE reserve_group_id = ? |
2208 |
}, { Slice => {} }, $reserve_group_id); |
2209 |
|
2210 |
return () unless defined $reserves; |
2211 |
|
2212 |
return @$reserves; |
2213 |
} |
2214 |
|
2145 |
=head1 AUTHOR |
2215 |
=head1 AUTHOR |
2146 |
|
2216 |
|
2147 |
Koha Development Team <http://koha-community.org/> |
2217 |
Koha Development Team <http://koha-community.org/> |