|
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 |
"; |