Lines 318-338
A recall for this item was found, and the item needs to be transferred to the re
Link Here
|
318 |
|
318 |
|
319 |
=cut |
319 |
=cut |
320 |
|
320 |
|
321 |
my $query = CGI->new; |
|
|
322 |
|
323 |
my $stickyduedate = $query->param('stickyduedate'); |
324 |
my $duedatespec = $query->param('duedatespec'); |
325 |
my $restoreduedatespec = $query->param('restoreduedatespec') || $duedatespec; |
326 |
if ( $restoreduedatespec && $restoreduedatespec eq "highholds_empty" ) { |
327 |
undef $restoreduedatespec; |
328 |
} |
329 |
my $issueconfirmed = $query->param('issueconfirmed'); |
330 |
my $cancelreserve = $query->param('cancelreserve'); |
331 |
my $cancel_recall = $query->param('cancel_recall'); |
332 |
my $recall_id = $query->param('recall_id'); |
333 |
my $debt_confirmed = $query->param('debt_confirmed') || 0; # Don't show the debt error dialog twice |
334 |
my $charges = $query->param('charges') || q{}; |
335 |
|
336 |
sub transferbook { |
321 |
sub transferbook { |
337 |
my $params = shift; |
322 |
my $params = shift; |
338 |
my $tbr = $params->{to_branch}; |
323 |
my $tbr = $params->{to_branch}; |
Lines 795-800
sub CanBookBeIssued {
Link Here
|
795 |
|
780 |
|
796 |
my $onsite_checkout = $params->{onsite_checkout} || 0; |
781 |
my $onsite_checkout = $params->{onsite_checkout} || 0; |
797 |
my $override_high_holds = $params->{override_high_holds} || 0; |
782 |
my $override_high_holds = $params->{override_high_holds} || 0; |
|
|
783 |
my $issueconfirmed = $params->{issueconfirmed} || 0; |
798 |
|
784 |
|
799 |
my $item_object = $params->{item} |
785 |
my $item_object = $params->{item} |
800 |
// Koha::Items->find( { barcode => $barcode } ); |
786 |
// Koha::Items->find( { barcode => $barcode } ); |
Lines 818-824
sub CanBookBeIssued {
Link Here
|
818 |
|
804 |
|
819 |
my $now = dt_from_string(); |
805 |
my $now = dt_from_string(); |
820 |
my $message; |
806 |
my $message; |
821 |
my @message; |
807 |
my @message_log; |
822 |
|
808 |
|
823 |
$duedate ||= CalcDateDue( $now, $effective_itemtype, $circ_library->branchcode, $patron ); |
809 |
$duedate ||= CalcDateDue( $now, $effective_itemtype, $circ_library->branchcode, $patron ); |
824 |
|
810 |
|
Lines 830-836
sub CanBookBeIssued {
Link Here
|
830 |
} else { |
816 |
} else { |
831 |
$message = "sticky due date is invalid or due date in the past"; |
817 |
$message = "sticky due date is invalid or due date in the past"; |
832 |
} |
818 |
} |
833 |
push( @message, "sticky due date is invalid or due date in the past" ); |
819 |
push( @message_log, "sticky due date is invalid or due date in the past" ); |
834 |
} |
820 |
} |
835 |
|
821 |
|
836 |
} |
822 |
} |
Lines 883-889
sub CanBookBeIssued {
Link Here
|
883 |
} else { |
869 |
} else { |
884 |
$message = "borrower is restricted"; |
870 |
$message = "borrower is restricted"; |
885 |
} |
871 |
} |
886 |
push( @message, "borrower is restricted" ); |
872 |
push( @message_log, "borrower is restricted" ); |
887 |
} |
873 |
} |
888 |
} |
874 |
} |
889 |
|
875 |
|
Lines 957-963
sub CanBookBeIssued {
Link Here
|
957 |
} else { |
943 |
} else { |
958 |
$message = "borrower had amend"; |
944 |
$message = "borrower had amend"; |
959 |
} |
945 |
} |
960 |
push( @message, "borrower had amend" ); |
946 |
push( @message_log, "borrower had amend" ); |
961 |
} |
947 |
} |
962 |
} elsif ( $non_issues_charges > $amountlimit && !$allowfineoverride) { |
948 |
} elsif ( $non_issues_charges > $amountlimit && !$allowfineoverride) { |
963 |
$issuingimpossible{DEBT} = $non_issues_charges; |
949 |
$issuingimpossible{DEBT} = $non_issues_charges; |
Lines 969-975
sub CanBookBeIssued {
Link Here
|
969 |
} else { |
955 |
} else { |
970 |
$message = "borrower had amend"; |
956 |
$message = "borrower had amend"; |
971 |
} |
957 |
} |
972 |
push( @message, "borrower had amend" ); |
958 |
push( @message_log, "borrower had amend" ); |
973 |
} |
959 |
} |
974 |
} |
960 |
} |
975 |
} |
961 |
} |
Lines 1059-1065
sub CanBookBeIssued {
Link Here
|
1059 |
} else { |
1045 |
} else { |
1060 |
$message = "item is checked out for someone else"; |
1046 |
$message = "item is checked out for someone else"; |
1061 |
} |
1047 |
} |
1062 |
push( @message, "item is checked out for someone else" ); |
1048 |
push( @message_log, "item is checked out for someone else" ); |
1063 |
} |
1049 |
} |
1064 |
} |
1050 |
} |
1065 |
} |
1051 |
} |
Lines 1090-1096
sub CanBookBeIssued {
Link Here
|
1090 |
} else { |
1076 |
} else { |
1091 |
$message = "too many checkout"; |
1077 |
$message = "too many checkout"; |
1092 |
} |
1078 |
} |
1093 |
push( @message, "too many checkout" ); |
1079 |
push( @message_log, "too many checkout" ); |
1094 |
} |
1080 |
} |
1095 |
} else { |
1081 |
} else { |
1096 |
$issuingimpossible{TOO_MANY} = $toomany->{reason}; |
1082 |
$issuingimpossible{TOO_MANY} = $toomany->{reason}; |
Lines 1125-1131
sub CanBookBeIssued {
Link Here
|
1125 |
} else { |
1111 |
} else { |
1126 |
$message = "item not for loan"; |
1112 |
$message = "item not for loan"; |
1127 |
} |
1113 |
} |
1128 |
push( @message, "item not for loan" ); |
1114 |
push( @message_log, "item not for loan" ); |
1129 |
} |
1115 |
} |
1130 |
} |
1116 |
} |
1131 |
} |
1117 |
} |
Lines 1179-1185
sub CanBookBeIssued {
Link Here
|
1179 |
} else { |
1165 |
} else { |
1180 |
$message = "item lost"; |
1166 |
$message = "item lost"; |
1181 |
} |
1167 |
} |
1182 |
push( @message, "item lost" ); |
1168 |
push( @message_log, "item lost" ); |
1183 |
} |
1169 |
} |
1184 |
} |
1170 |
} |
1185 |
if ( C4::Context->preference("IndependentBranches") ) { |
1171 |
if ( C4::Context->preference("IndependentBranches") ) { |
Lines 1284-1290
sub CanBookBeIssued {
Link Here
|
1284 |
} else { |
1270 |
} else { |
1285 |
$message = "item is on reserve and waiting, but has been reserved by some other patron."; |
1271 |
$message = "item is on reserve and waiting, but has been reserved by some other patron."; |
1286 |
} |
1272 |
} |
1287 |
push( @message, "item is on reserve and waiting, but has been reserved by some other patron" ); |
1273 |
push( |
|
|
1274 |
@message_log, |
1275 |
"item is on reserve and waiting, but has been reserved by some other patron" |
1276 |
); |
1288 |
} |
1277 |
} |
1289 |
} |
1278 |
} |
1290 |
elsif ( $restype eq "Reserved" ) { |
1279 |
elsif ( $restype eq "Reserved" ) { |
Lines 1303-1309
sub CanBookBeIssued {
Link Here
|
1303 |
} else { |
1292 |
} else { |
1304 |
$message = "item is on reserve for someone else"; |
1293 |
$message = "item is on reserve for someone else"; |
1305 |
} |
1294 |
} |
1306 |
push( @message, "item is on reserve for someone else" ); |
1295 |
push( @message_log, "item is on reserve for someone else" ); |
1307 |
} |
1296 |
} |
1308 |
} |
1297 |
} |
1309 |
elsif ( $restype eq "Transferred" ) { |
1298 |
elsif ( $restype eq "Transferred" ) { |
Lines 1322-1328
sub CanBookBeIssued {
Link Here
|
1322 |
} else { |
1311 |
} else { |
1323 |
$message = "item is determined hold being transferred for someone else"; |
1312 |
$message = "item is determined hold being transferred for someone else"; |
1324 |
} |
1313 |
} |
1325 |
push( @message, "item is determined hold being transferred for someone else" ); |
1314 |
push( @message_log, "item is determined hold being transferred for someone else" ); |
1326 |
} |
1315 |
} |
1327 |
} |
1316 |
} |
1328 |
elsif ( $restype eq "Processing" ) { |
1317 |
elsif ( $restype eq "Processing" ) { |
Lines 1341-1347
sub CanBookBeIssued {
Link Here
|
1341 |
} else { |
1330 |
} else { |
1342 |
$message = "item is determined hold being processed for someone else"; |
1331 |
$message = "item is determined hold being processed for someone else"; |
1343 |
} |
1332 |
} |
1344 |
push( @message, "item is determined hold being processed for someone else" ); |
1333 |
push( @message_log, "item is determined hold being processed for someone else" ); |
1345 |
} |
1334 |
} |
1346 |
} |
1335 |
} |
1347 |
} |
1336 |
} |
Lines 1391-1397
sub CanBookBeIssued {
Link Here
|
1391 |
} else { |
1380 |
} else { |
1392 |
$message = "age restriction"; |
1381 |
$message = "age restriction"; |
1393 |
} |
1382 |
} |
1394 |
push( @message, "age restriction" ); |
1383 |
push( @message_log, "age restriction" ); |
1395 |
} |
1384 |
} |
1396 |
else { |
1385 |
else { |
1397 |
$issuingimpossible{AGE_RESTRICTION} = "$agerestriction"; |
1386 |
$issuingimpossible{AGE_RESTRICTION} = "$agerestriction"; |
Lines 1459-1465
sub CanBookBeIssued {
Link Here
|
1459 |
|
1448 |
|
1460 |
my $infos = ( |
1449 |
my $infos = ( |
1461 |
{ |
1450 |
{ |
1462 |
message => \@message, |
1451 |
message => \@message_log, |
1463 |
borrowernumber => $borrower->borrowernumber, |
1452 |
borrowernumber => $borrower->borrowernumber, |
1464 |
barcode => $barcode, |
1453 |
barcode => $barcode, |
1465 |
manager_id => $user, |
1454 |
manager_id => $user, |
Lines 1478-1484
sub CanBookBeIssued {
Link Here
|
1478 |
} |
1467 |
} |
1479 |
|
1468 |
|
1480 |
|
1469 |
|
1481 |
return ( \%issuingimpossible, \%needsconfirmation, \%alerts, \%messages, ); |
1470 |
return ( \%issuingimpossible, \%needsconfirmation, \%alerts, \%messages, \@message_log ); |
1482 |
} |
1471 |
} |
1483 |
|
1472 |
|
1484 |
=head2 CanBookBeReturned |
1473 |
=head2 CanBookBeReturned |