Lines 168-178
sub AddReserve {
Link Here
|
168 |
# Make room in reserves for this before those of a later reserve date |
168 |
# Make room in reserves for this before those of a later reserve date |
169 |
$priority = _ShiftPriorityByDateAndPriority( $biblionumber, $resdate, $priority ); |
169 |
$priority = _ShiftPriorityByDateAndPriority( $biblionumber, $resdate, $priority ); |
170 |
} |
170 |
} |
171 |
my $waitingdate; |
171 |
my ($waitingdate, $lastpickupdate); |
172 |
|
172 |
|
|
|
173 |
my $item = C4::Items::GetItem( $checkitem ); |
173 |
# If the reserv had the waiting status, we had the value of the resdate |
174 |
# If the reserv had the waiting status, we had the value of the resdate |
174 |
if ( $found eq 'W' ) { |
175 |
if ( $found eq 'W' ) { |
175 |
$waitingdate = $resdate; |
176 |
$waitingdate = $resdate; |
|
|
177 |
|
178 |
#The reserve-object doesn't exist yet in DB, so we must supply what information we have to GetLastPickupDate() so it can do it's work. |
179 |
my $reserve = {borrowernumber => $borrowernumber, waitingdate => $waitingdate, branchcode => $branch}; |
180 |
$lastpickupdate = GetLastPickupDate( $reserve, $item ); |
176 |
} |
181 |
} |
177 |
|
182 |
|
178 |
#eval { |
183 |
#eval { |
Lines 194-209
sub AddReserve {
Link Here
|
194 |
my $query = qq/ |
199 |
my $query = qq/ |
195 |
INSERT INTO reserves |
200 |
INSERT INTO reserves |
196 |
(borrowernumber,biblionumber,reservedate,branchcode,constrainttype, |
201 |
(borrowernumber,biblionumber,reservedate,branchcode,constrainttype, |
197 |
priority,reservenotes,itemnumber,found,waitingdate,expirationdate) |
202 |
priority,reservenotes,itemnumber,found,waitingdate,expirationdate,lastpickupdate) |
198 |
VALUES |
203 |
VALUES |
199 |
(?,?,?,?,?, |
204 |
(?,?,?,?,?, |
200 |
?,?,?,?,?,?) |
205 |
?,?,?,?,?,?,?) |
201 |
/; |
206 |
/; |
202 |
my $sth = $dbh->prepare($query); |
207 |
my $sth = $dbh->prepare($query); |
203 |
$sth->execute( |
208 |
$sth->execute( |
204 |
$borrowernumber, $biblionumber, $resdate, $branch, |
209 |
$borrowernumber, $biblionumber, $resdate, $branch, |
205 |
$const, $priority, $notes, $checkitem, |
210 |
$const, $priority, $notes, $checkitem, |
206 |
$found, $waitingdate, $expdate |
211 |
$found, $waitingdate, $expdate, $lastpickupdate |
207 |
); |
212 |
); |
208 |
|
213 |
|
209 |
# Send e-mail to librarian if syspref is active |
214 |
# Send e-mail to librarian if syspref is active |
Lines 806-815
sub GetReservesToBranch {
Link Here
|
806 |
|
811 |
|
807 |
sub GetReservesForBranch { |
812 |
sub GetReservesForBranch { |
808 |
my ($frombranch) = @_; |
813 |
my ($frombranch) = @_; |
809 |
my $dbh = C4::Context->dbh; |
|
|
810 |
|
814 |
|
811 |
my $query = " |
815 |
my $dbh = C4::Context->dbh; |
812 |
SELECT reserve_id,borrowernumber,reservedate,itemnumber,waitingdate |
816 |
my $query = " |
|
|
817 |
SELECT reserve_id, borrowernumber, reservedate, itemnumber, waitingdate, lastpickupdate |
813 |
FROM reserves |
818 |
FROM reserves |
814 |
WHERE priority='0' |
819 |
WHERE priority='0' |
815 |
AND found='W' |
820 |
AND found='W' |
Lines 874-879
sub GetReserveStatus {
Link Here
|
874 |
return ''; # empty string here will remove need for checking undef, or less log lines |
879 |
return ''; # empty string here will remove need for checking undef, or less log lines |
875 |
} |
880 |
} |
876 |
|
881 |
|
|
|
882 |
=head2 GetLastPickupDate |
883 |
|
884 |
my $lastpickupdate = GetLastPickupDate($reserve, $item); |
885 |
my $lastpickupdate = GetLastPickupDate($reserve, $item, $borrower); |
886 |
my $lastpickupdate = GetLastPickupDate(undef, $item); |
887 |
|
888 |
Gets the last pickup date from the issuingrules for the given reserves-row and sets the |
889 |
$reserve->{lastpickupdate}.-value. |
890 |
If the reserves-row is not passed, function tries to figure it out from the item-row. |
891 |
|
892 |
Calculating the last pickup date respects Calendar holidays and skips to the next open day. |
893 |
|
894 |
@PARAM1 koha.reserves-row |
895 |
@PARAM2 koha.items-row, If the reserve is not given, an item must be given to be |
896 |
able to find a reservation |
897 |
@PARAM3 koha.borrowers-row, OPTIONAL |
898 |
RETURNS DateTime, depicting the last pickup date. |
899 |
=cut |
900 |
|
901 |
sub GetLastPickupDate { |
902 |
my ($reserve, $item, $borrower) = @_; |
903 |
|
904 |
##Verify parameters |
905 |
if ( not defined $reserve and not defined $item ) { |
906 |
warn "C4::Reserves::GetMaxPickupDate(), is called without a reserve and a item"; |
907 |
return; |
908 |
} |
909 |
if ( defined $reserve and not defined $item ) { |
910 |
$item = C4::Items::GetItem( $reserve->{itemnumber} ); |
911 |
} |
912 |
unless ( defined $reserve ) { |
913 |
my $reserve = GetReservesFromItemnumber( $item->{itemnumber} ); |
914 |
} |
915 |
|
916 |
my $date = $reserve->{waitingdate}; |
917 |
unless ( $date ) { #It is possible that a reserve is just caught and it doesn't have a waitingdate yet. |
918 |
$date = DateTime->now( time_zone => C4::Context->tz() ); #So default to NOW() |
919 |
} |
920 |
else { |
921 |
$date = (ref $reserve->{waitingdate} eq 'DateTime') ? $reserve->{waitingdate} : dt_from_string($reserve->{waitingdate}); |
922 |
} |
923 |
$borrower = C4::Members::GetMember( 'borrowernumber' => $reserve->{borrowernumber} ) unless $borrower; |
924 |
|
925 |
##Get churning the LastPickupDate |
926 |
my $controlbranch = GetReservesControlBranch( $item, $borrower ); |
927 |
|
928 |
my $issuingrule = C4::Circulation::GetIssuingRule( $borrower->{categorycode}, $item->{itype}, $controlbranch ); |
929 |
|
930 |
my $holdspickupwait = 0; |
931 |
if ( defined($issuingrule) |
932 |
and defined $issuingrule->{holdspickupwait} ) { |
933 |
$holdspickupwait = $issuingrule->{holdspickupwait} |
934 |
} |
935 |
$date->add( days => $holdspickupwait ); |
936 |
|
937 |
my $calendar = Koha::Calendar->new( branchcode => $reserve->{'branchcode'} ); |
938 |
my $is_holiday = $calendar->is_holiday( $date ); |
939 |
|
940 |
while ( $is_holiday ) { |
941 |
$date->add( days => 1 ); |
942 |
$is_holiday = $calendar->is_holiday( $date ); |
943 |
} |
944 |
|
945 |
$reserve->{lastpickupdate} = $date->ymd(); |
946 |
return $date; |
947 |
} |
948 |
=head2 GetReservesControlBranch |
949 |
|
950 |
$branchcode = &GetReservesControlBranch($borrower, $item) |
951 |
|
952 |
Returns the branchcode to consider to check hold rules against |
953 |
|
954 |
=cut |
955 |
|
956 |
sub GetReservesControlBranch { |
957 |
my ( $borrower, $item ) = @_; |
958 |
my $controlbranch = C4::Context->preference('ReservesControlBranch'); |
959 |
my $hbr = C4::Context->preference('HomeOrHoldingBranch') || "homebranch"; |
960 |
my $branchcode = "*"; |
961 |
if ( $controlbranch eq "ItemHomeLibrary" ) { |
962 |
$branchcode = $item->{$hbr}; |
963 |
} elsif ( $controlbranch eq "PatronLibrary" ) { |
964 |
$branchcode = $borrower->{branchcode}; |
965 |
} |
966 |
return $branchcode; |
967 |
} |
968 |
|
877 |
=head2 CheckReserves |
969 |
=head2 CheckReserves |
878 |
|
970 |
|
879 |
($status, $reserve, $all_reserves) = &CheckReserves($itemnumber); |
971 |
($status, $reserve, $all_reserves) = &CheckReserves($itemnumber); |
Lines 1017-1052
sub CancelExpiredReserves {
Link Here
|
1017 |
} |
1109 |
} |
1018 |
|
1110 |
|
1019 |
# Cancel reserves that have been waiting too long |
1111 |
# Cancel reserves that have been waiting too long |
1020 |
if ( C4::Context->preference("ExpireReservesMaxPickUpDelay") ) { |
1112 |
my $today = dt_from_string(); |
1021 |
my $max_pickup_delay = C4::Context->preference("ReservesMaxPickUpDelay"); |
1113 |
my $charge = C4::Context->preference("ExpireReservesMaxPickUpDelayCharge"); |
1022 |
my $charge = C4::Context->preference("ExpireReservesMaxPickUpDelayCharge"); |
|
|
1023 |
my $cancel_on_holidays = C4::Context->preference('ExpireReservesOnHolidays'); |
1024 |
|
1025 |
my $today = dt_from_string(); |
1026 |
|
1027 |
my $query = "SELECT * FROM reserves WHERE TO_DAYS( NOW() ) - TO_DAYS( waitingdate ) > ? AND found = 'W' AND priority = 0"; |
1028 |
$sth = $dbh->prepare( $query ); |
1029 |
$sth->execute( $max_pickup_delay ); |
1030 |
|
1114 |
|
1031 |
while ( my $res = $sth->fetchrow_hashref ) { |
1115 |
my $query = "SELECT * FROM reserves WHERE NOW() > lastpickupdate AND found = 'W' AND priority = 0"; |
1032 |
my $do_cancel = 1; |
1116 |
$sth = $dbh->prepare( $query ); |
1033 |
unless ( $cancel_on_holidays ) { |
1117 |
$sth->execute(); |
1034 |
my $calendar = Koha::Calendar->new( branchcode => $res->{'branchcode'} ); |
|
|
1035 |
my $is_holiday = $calendar->is_holiday( $today ); |
1036 |
|
1037 |
if ( $is_holiday ) { |
1038 |
$do_cancel = 0; |
1039 |
} |
1040 |
} |
1041 |
|
1118 |
|
1042 |
if ( $do_cancel ) { |
1119 |
while ( my $res = $sth->fetchrow_hashref ) { |
1043 |
if ( $charge ) { |
|
|
1044 |
manualinvoice($res->{'borrowernumber'}, $res->{'itemnumber'}, 'Hold waiting too long', 'F', $charge); |
1045 |
} |
1046 |
|
1120 |
|
1047 |
CancelReserve({ reserve_id => $res->{'reserve_id'} }); |
1121 |
if ( $charge ) { |
1048 |
} |
1122 |
manualinvoice($res->{'borrowernumber'}, $res->{'itemnumber'}, 'Hold waiting too long', 'F', $charge); |
1049 |
} |
1123 |
} |
|
|
1124 |
|
1125 |
CancelReserve({ reserve_id => $res->{'reserve_id'} }); |
1050 |
} |
1126 |
} |
1051 |
|
1127 |
|
1052 |
} |
1128 |
} |
Lines 1284-1292
sub ModReserveStatus {
Link Here
|
1284 |
my ($itemnumber, $newstatus) = @_; |
1360 |
my ($itemnumber, $newstatus) = @_; |
1285 |
my $dbh = C4::Context->dbh; |
1361 |
my $dbh = C4::Context->dbh; |
1286 |
|
1362 |
|
1287 |
my $query = "UPDATE reserves SET found = ?, waitingdate = NOW() WHERE itemnumber = ? AND found IS NULL AND priority = 0"; |
1363 |
my $now = dt_from_string; |
|
|
1364 |
my $reserve = $dbh->selectrow_hashref(q{ |
1365 |
SELECT * |
1366 |
FROM reserves |
1367 |
WHERE itemnumber = ? |
1368 |
AND found IS NULL |
1369 |
AND priority = 0 |
1370 |
}, {}, $itemnumber); |
1371 |
return unless $reserve; |
1372 |
|
1373 |
my $lastpickupdate = GetLastPickupDate( $reserve ); |
1374 |
my $query = q{ |
1375 |
UPDATE reserves |
1376 |
SET found = ?, |
1377 |
waitingdate = ?, |
1378 |
maxpickupdate = ? |
1379 |
WHERE itemnumber = ? |
1380 |
AND found IS NULL |
1381 |
AND priority = 0 |
1382 |
}; |
1288 |
my $sth_set = $dbh->prepare($query); |
1383 |
my $sth_set = $dbh->prepare($query); |
1289 |
$sth_set->execute( $newstatus, $itemnumber ); |
1384 |
$sth_set->execute( $newstatus, $now, $lastpickupdate, $itemnumber ); |
1290 |
|
1385 |
|
1291 |
if ( C4::Context->preference("ReturnToShelvingCart") && $newstatus ) { |
1386 |
if ( C4::Context->preference("ReturnToShelvingCart") && $newstatus ) { |
1292 |
CartToShelf( $itemnumber ); |
1387 |
CartToShelf( $itemnumber ); |
Lines 1331-1359
sub ModReserveAffect {
Link Here
|
1331 |
# If we affect a reserve that has to be transfered, don't set to Waiting |
1426 |
# If we affect a reserve that has to be transfered, don't set to Waiting |
1332 |
my $query; |
1427 |
my $query; |
1333 |
if ($transferToDo) { |
1428 |
if ($transferToDo) { |
1334 |
$query = " |
1429 |
$query = " |
1335 |
UPDATE reserves |
1430 |
UPDATE reserves |
1336 |
SET priority = 0, |
1431 |
SET priority = 0, |
1337 |
itemnumber = ?, |
1432 |
itemnumber = ?, |
1338 |
found = 'T' |
1433 |
found = 'T' |
1339 |
WHERE borrowernumber = ? |
1434 |
WHERE borrowernumber = ? |
1340 |
AND biblionumber = ? |
1435 |
AND biblionumber = ? |
1341 |
"; |
1436 |
"; |
|
|
1437 |
$sth = $dbh->prepare($query); |
1438 |
$sth->execute( $itemnumber, $borrowernumber,$biblionumber); |
1342 |
} |
1439 |
} |
1343 |
else { |
1440 |
else { |
1344 |
# affect the reserve to Waiting as well. |
1441 |
# affect the reserve to Waiting as well. |
|
|
1442 |
my $item = C4::Items::GetItem( $itemnumber ); |
1443 |
my $lastpickupdate = GetLastPickupDate( $request, $item ); |
1345 |
$query = " |
1444 |
$query = " |
1346 |
UPDATE reserves |
1445 |
UPDATE reserves |
1347 |
SET priority = 0, |
1446 |
SET priority = 0, |
1348 |
found = 'W', |
1447 |
found = 'W', |
1349 |
waitingdate = NOW(), |
1448 |
waitingdate = NOW(), |
|
|
1449 |
lastpickupdate = ?, |
1350 |
itemnumber = ? |
1450 |
itemnumber = ? |
1351 |
WHERE borrowernumber = ? |
1451 |
WHERE borrowernumber = ? |
1352 |
AND biblionumber = ? |
1452 |
AND biblionumber = ? |
1353 |
"; |
1453 |
"; |
|
|
1454 |
$sth = $dbh->prepare($query); |
1455 |
$sth->execute( $lastpickupdate, $itemnumber, $borrowernumber,$biblionumber); |
1354 |
} |
1456 |
} |
1355 |
$sth = $dbh->prepare($query); |
|
|
1356 |
$sth->execute( $itemnumber, $borrowernumber,$biblionumber); |
1357 |
_koha_notify_reserve( $itemnumber, $borrowernumber, $biblionumber ) if ( !$transferToDo && !$already_on_shelf ); |
1457 |
_koha_notify_reserve( $itemnumber, $borrowernumber, $biblionumber ) if ( !$transferToDo && !$already_on_shelf ); |
1358 |
_FixPriority( { biblionumber => $biblionumber } ); |
1458 |
_FixPriority( { biblionumber => $biblionumber } ); |
1359 |
if ( C4::Context->preference("ReturnToShelvingCart") ) { |
1459 |
if ( C4::Context->preference("ReturnToShelvingCart") ) { |
Lines 1429-1434
sub GetReserveInfo {
Link Here
|
1429 |
reserves.biblionumber, |
1529 |
reserves.biblionumber, |
1430 |
reserves.branchcode, |
1530 |
reserves.branchcode, |
1431 |
reserves.waitingdate, |
1531 |
reserves.waitingdate, |
|
|
1532 |
reserves.lastpickupdate, |
1432 |
notificationdate, |
1533 |
notificationdate, |
1433 |
reminderdate, |
1534 |
reminderdate, |
1434 |
priority, |
1535 |
priority, |
Lines 1840-1845
sub _Findgroupreserve {
Link Here
|
1840 |
reserves.borrowernumber AS borrowernumber, |
1941 |
reserves.borrowernumber AS borrowernumber, |
1841 |
reserves.reservedate AS reservedate, |
1942 |
reserves.reservedate AS reservedate, |
1842 |
reserves.branchcode AS branchcode, |
1943 |
reserves.branchcode AS branchcode, |
|
|
1944 |
reserves.lastpickupdate AS maxpickupdate, |
1843 |
reserves.cancellationdate AS cancellationdate, |
1945 |
reserves.cancellationdate AS cancellationdate, |
1844 |
reserves.found AS found, |
1946 |
reserves.found AS found, |
1845 |
reserves.reservenotes AS reservenotes, |
1947 |
reserves.reservenotes AS reservenotes, |
Lines 1872-1877
sub _Findgroupreserve {
Link Here
|
1872 |
reserves.borrowernumber AS borrowernumber, |
1974 |
reserves.borrowernumber AS borrowernumber, |
1873 |
reserves.reservedate AS reservedate, |
1975 |
reserves.reservedate AS reservedate, |
1874 |
reserves.branchcode AS branchcode, |
1976 |
reserves.branchcode AS branchcode, |
|
|
1977 |
reserves.lastpickupdate AS maxpickupdate, |
1875 |
reserves.cancellationdate AS cancellationdate, |
1978 |
reserves.cancellationdate AS cancellationdate, |
1876 |
reserves.found AS found, |
1979 |
reserves.found AS found, |
1877 |
reserves.reservenotes AS reservenotes, |
1980 |
reserves.reservenotes AS reservenotes, |
Lines 1904-1909
sub _Findgroupreserve {
Link Here
|
1904 |
reserves.reservedate AS reservedate, |
2007 |
reserves.reservedate AS reservedate, |
1905 |
reserves.waitingdate AS waitingdate, |
2008 |
reserves.waitingdate AS waitingdate, |
1906 |
reserves.branchcode AS branchcode, |
2009 |
reserves.branchcode AS branchcode, |
|
|
2010 |
reserves.lastpickupdate AS maxpickupdate, |
1907 |
reserves.cancellationdate AS cancellationdate, |
2011 |
reserves.cancellationdate AS cancellationdate, |
1908 |
reserves.found AS found, |
2012 |
reserves.found AS found, |
1909 |
reserves.reservenotes AS reservenotes, |
2013 |
reserves.reservenotes AS reservenotes, |
Lines 2117-2122
sub MoveReserve {
Link Here
|
2117 |
} |
2221 |
} |
2118 |
} |
2222 |
} |
2119 |
|
2223 |
|
|
|
2224 |
=head MoveWaitingdate |
2225 |
|
2226 |
#Move waitingdate two months and fifteen days forward. |
2227 |
my $dateDuration = DateTime::Duration->new( months => 2, days => 15 ); |
2228 |
$reserve = MoveWaitingdate( $reserve, $dateDuration); |
2229 |
|
2230 |
#Move waitingdate one year and eleven days backwards. |
2231 |
my $dateDuration = DateTime::Duration->new( years => -1, days => -11 ); |
2232 |
$reserve = MoveWaitingdate( $reserve, $dateDuration); |
2233 |
|
2234 |
Moves the waitingdate and updates the lastpickupdate to match. |
2235 |
If waitingdate is not defined, uses today. |
2236 |
Is intended to be used from automated tests, because under normal library |
2237 |
operations there should be NO REASON to move the waitingdate. |
2238 |
|
2239 |
@PARAM1 koha.reserves-row, with waitingdate set. |
2240 |
@PARAM2 DateTime::Duration, with the desired offset. |
2241 |
RETURNS koha.reserve-row, with keys waitingdate and lastpickupdate updated. |
2242 |
=cut |
2243 |
sub MoveWaitingdate { |
2244 |
my ($reserve, $dateDuration) = @_; |
2245 |
|
2246 |
my $dt = dt_from_string( $reserve->{waitingdate} ); |
2247 |
$dt->add_duration( $dateDuration ); |
2248 |
$reserve->{waitingdate} = $dt->ymd(); |
2249 |
|
2250 |
GetLastPickupDate( $reserve ); #Update the $reserve->{lastpickupdate} |
2251 |
|
2252 |
#UPDATE the DB part |
2253 |
my $dbh = C4::Context->dbh(); |
2254 |
my $sth = $dbh->prepare( "UPDATE reserves SET waitingdate=?, lastpickupdate=? WHERE reserve_id=?" ); |
2255 |
$sth->execute( $reserve->{waitingdate}, $reserve->{lastpickupdate}, $reserve->{reserve_id} ); |
2256 |
|
2257 |
return $reserve; |
2258 |
} |
2259 |
|
2120 |
=head2 MergeHolds |
2260 |
=head2 MergeHolds |
2121 |
|
2261 |
|
2122 |
MergeHolds($dbh,$to_biblio, $from_biblio); |
2262 |
MergeHolds($dbh,$to_biblio, $from_biblio); |
Lines 2213-2219
sub RevertWaitingStatus {
Link Here
|
2213 |
SET |
2353 |
SET |
2214 |
priority = 1, |
2354 |
priority = 1, |
2215 |
found = NULL, |
2355 |
found = NULL, |
2216 |
waitingdate = NULL |
2356 |
waitingdate = NULL, |
|
|
2357 |
lastpickupdate = NULL, |
2217 |
WHERE |
2358 |
WHERE |
2218 |
reserve_id = ? |
2359 |
reserve_id = ? |
2219 |
"; |
2360 |
"; |