|
Lines 307-313
sub transferbook {
Link Here
|
| 307 |
my $messages; |
307 |
my $messages; |
| 308 |
my $dotransfer = 1; |
308 |
my $dotransfer = 1; |
| 309 |
my $itemnumber = GetItemnumberFromBarcode( $barcode ); |
309 |
my $itemnumber = GetItemnumberFromBarcode( $barcode ); |
| 310 |
my $issue = GetItemIssue($itemnumber); |
310 |
my $issue = Koha::Issues->find({ itemnumber => $itemnumber }); |
| 311 |
my $biblio = GetBiblioFromItemNumber($itemnumber); |
311 |
my $biblio = GetBiblioFromItemNumber($itemnumber); |
| 312 |
|
312 |
|
| 313 |
# bad barcode.. |
313 |
# bad barcode.. |
|
Lines 349-357
sub transferbook {
Link Here
|
| 349 |
} |
349 |
} |
| 350 |
|
350 |
|
| 351 |
# check if it is still issued to someone, return it... |
351 |
# check if it is still issued to someone, return it... |
| 352 |
if ($issue->{borrowernumber}) { |
352 |
if ( $issue ) { |
| 353 |
AddReturn( $barcode, $fbr ); |
353 |
AddReturn( $barcode, $fbr ); |
| 354 |
$messages->{'WasReturned'} = $issue->{borrowernumber}; |
354 |
$messages->{'WasReturned'} = $issue->borrowernumber; |
| 355 |
} |
355 |
} |
| 356 |
|
356 |
|
| 357 |
# find reserves..... |
357 |
# find reserves..... |
|
Lines 670-676
sub CanBookBeIssued {
Link Here
|
| 670 |
my $override_high_holds = $params->{override_high_holds} || 0; |
670 |
my $override_high_holds = $params->{override_high_holds} || 0; |
| 671 |
|
671 |
|
| 672 |
my $item = GetItem(GetItemnumberFromBarcode( $barcode )); |
672 |
my $item = GetItem(GetItemnumberFromBarcode( $barcode )); |
| 673 |
my $issue = GetItemIssue($item->{itemnumber}); |
673 |
my $issue = Koha::Issues->find( { itemnumber => $item->{itemnumber} } ); |
| 674 |
my $biblioitem = GetBiblioItemData($item->{biblioitemnumber}); |
674 |
my $biblioitem = GetBiblioItemData($item->{biblioitemnumber}); |
| 675 |
$item->{'itemtype'}=$item->{'itype'}; |
675 |
$item->{'itemtype'}=$item->{'itype'}; |
| 676 |
my $dbh = C4::Context->dbh; |
676 |
my $dbh = C4::Context->dbh; |
|
Lines 826-834
sub CanBookBeIssued {
Link Here
|
| 826 |
# |
826 |
# |
| 827 |
my $switch_onsite_checkout = |
827 |
my $switch_onsite_checkout = |
| 828 |
C4::Context->preference('SwitchOnSiteCheckouts') |
828 |
C4::Context->preference('SwitchOnSiteCheckouts') |
| 829 |
and $issue->{onsite_checkout} |
|
|
| 830 |
and $issue |
829 |
and $issue |
| 831 |
and $issue->{borrowernumber} == $borrower->{'borrowernumber'} ? 1 : 0; |
830 |
and $issue->onsite_checkout |
|
|
831 |
and $issue->borrowernumber == $borrower->{'borrowernumber'} ? 1 : 0; |
| 832 |
my $toomany = TooMany( $borrower, $item->{biblionumber}, $item, { onsite_checkout => $onsite_checkout, switch_onsite_checkout => $switch_onsite_checkout, } ); |
832 |
my $toomany = TooMany( $borrower, $item->{biblionumber}, $item, { onsite_checkout => $onsite_checkout, switch_onsite_checkout => $switch_onsite_checkout, } ); |
| 833 |
# if TooMany max_allowed returns 0 the user doesn't have permission to check out this book |
833 |
# if TooMany max_allowed returns 0 the user doesn't have permission to check out this book |
| 834 |
if ( $toomany ) { |
834 |
if ( $toomany ) { |
|
Lines 936-948
sub CanBookBeIssued {
Link Here
|
| 936 |
# |
936 |
# |
| 937 |
# CHECK IF BOOK ALREADY ISSUED TO THIS BORROWER |
937 |
# CHECK IF BOOK ALREADY ISSUED TO THIS BORROWER |
| 938 |
# |
938 |
# |
| 939 |
if ( $issue->{borrowernumber} && $issue->{borrowernumber} eq $borrower->{'borrowernumber'} ){ |
939 |
if ( $issue && $issue->borrowernumber eq $borrower->{'borrowernumber'} ){ |
| 940 |
|
940 |
|
| 941 |
# Already issued to current borrower. |
941 |
# Already issued to current borrower. |
| 942 |
# If it is an on-site checkout if it can be switched to a normal checkout |
942 |
# If it is an on-site checkout if it can be switched to a normal checkout |
| 943 |
# or ask whether the loan should be renewed |
943 |
# or ask whether the loan should be renewed |
| 944 |
|
944 |
|
| 945 |
if ( $issue->{onsite_checkout} |
945 |
if ( $issue->onsite_checkout |
| 946 |
and C4::Context->preference('SwitchOnSiteCheckouts') ) { |
946 |
and C4::Context->preference('SwitchOnSiteCheckouts') ) { |
| 947 |
$messages{ONSITE_CHECKOUT_WILL_BE_SWITCHED} = 1; |
947 |
$messages{ONSITE_CHECKOUT_WILL_BE_SWITCHED} = 1; |
| 948 |
} else { |
948 |
} else { |
|
Lines 963-972
sub CanBookBeIssued {
Link Here
|
| 963 |
} |
963 |
} |
| 964 |
} |
964 |
} |
| 965 |
} |
965 |
} |
| 966 |
elsif ($issue->{borrowernumber}) { |
966 |
elsif ( $issue ) { |
| 967 |
|
967 |
|
| 968 |
# issued to someone else |
968 |
# issued to someone else |
| 969 |
my $currborinfo = C4::Members::GetMember( borrowernumber => $issue->{borrowernumber} ); |
969 |
my $currborinfo = C4::Members::GetMember( borrowernumber => $issue->borrowernumber ); |
| 970 |
|
970 |
|
| 971 |
|
971 |
|
| 972 |
my ( $can_be_returned, $message ) = CanBookBeReturned( $item, C4::Context->userenv->{branch} ); |
972 |
my ( $can_be_returned, $message ) = CanBookBeReturned( $item, C4::Context->userenv->{branch} ); |
|
Lines 1292-1304
sub AddIssue {
Link Here
|
| 1292 |
my $branch = _GetCircControlBranch( $item, $borrower ); |
1292 |
my $branch = _GetCircControlBranch( $item, $borrower ); |
| 1293 |
|
1293 |
|
| 1294 |
# get actual issuing if there is one |
1294 |
# get actual issuing if there is one |
| 1295 |
my $actualissue = GetItemIssue( $item->{itemnumber} ); |
1295 |
my $actualissue = Koha::Issues->find( { itemnumber => $item->{itemnumber} } ); |
| 1296 |
|
1296 |
|
| 1297 |
# get biblioinformation for this item |
1297 |
# get biblioinformation for this item |
| 1298 |
my $biblio = GetBiblioFromItemNumber( $item->{itemnumber} ); |
1298 |
my $biblio = GetBiblioFromItemNumber( $item->{itemnumber} ); |
| 1299 |
|
1299 |
|
| 1300 |
# check if we just renew the issue. |
1300 |
# check if we just renew the issue. |
| 1301 |
if ( $actualissue->{borrowernumber} eq $borrower->{'borrowernumber'} |
1301 |
if ( $actualissue and $actualissue->borrowernumber eq $borrower->{'borrowernumber'} |
| 1302 |
and not $switch_onsite_checkout ) { |
1302 |
and not $switch_onsite_checkout ) { |
| 1303 |
$datedue = AddRenewal( |
1303 |
$datedue = AddRenewal( |
| 1304 |
$borrower->{'borrowernumber'}, |
1304 |
$borrower->{'borrowernumber'}, |
|
Lines 1310-1317
sub AddIssue {
Link Here
|
| 1310 |
} |
1310 |
} |
| 1311 |
else { |
1311 |
else { |
| 1312 |
# it's NOT a renewal |
1312 |
# it's NOT a renewal |
| 1313 |
if ( $actualissue->{borrowernumber} |
1313 |
if ( $actualissue and not $switch_onsite_checkout ) { |
| 1314 |
and not $switch_onsite_checkout ) { |
|
|
| 1315 |
# This book is currently on loan, but not to the person |
1314 |
# This book is currently on loan, but not to the person |
| 1316 |
# who wants to borrow it now. mark it returned before issuing to the new borrower |
1315 |
# who wants to borrow it now. mark it returned before issuing to the new borrower |
| 1317 |
my ( $allowed, $message ) = CanBookBeReturned( $item, C4::Context->userenv->{branch} ); |
1316 |
my ( $allowed, $message ) = CanBookBeReturned( $item, C4::Context->userenv->{branch} ); |
|
Lines 3040-3048
sub GetSoonestRenewDate {
Link Here
|
| 3040 |
my $dbh = C4::Context->dbh; |
3039 |
my $dbh = C4::Context->dbh; |
| 3041 |
|
3040 |
|
| 3042 |
my $item = GetItem($itemnumber) or return; |
3041 |
my $item = GetItem($itemnumber) or return; |
| 3043 |
my $itemissue = GetItemIssue($itemnumber) or return; |
3042 |
my $itemissue = Koha::Issues->find( { itemnumber => $itemnumber } ) or return; |
| 3044 |
|
3043 |
|
| 3045 |
$borrowernumber ||= $itemissue->{borrowernumber}; |
3044 |
$borrowernumber ||= $itemissue->borrowernumber; |
| 3046 |
my $borrower = C4::Members::GetMemberDetails($borrowernumber) |
3045 |
my $borrower = C4::Members::GetMemberDetails($borrowernumber) |
| 3047 |
or return; |
3046 |
or return; |
| 3048 |
|
3047 |
|
|
Lines 3061-3068
sub GetSoonestRenewDate {
Link Here
|
| 3061 |
and $issuing_rule->norenewalbefore ne "" ) |
3060 |
and $issuing_rule->norenewalbefore ne "" ) |
| 3062 |
{ |
3061 |
{ |
| 3063 |
my $soonestrenewal = |
3062 |
my $soonestrenewal = |
| 3064 |
$itemissue->{date_due}->clone() |
3063 |
dt_from_string( $itemissue->date_due )->subtract( |
| 3065 |
->subtract( |
|
|
| 3066 |
$issuing_rule->lengthunit => $issuing_rule->norenewalbefore ); |
3064 |
$issuing_rule->lengthunit => $issuing_rule->norenewalbefore ); |
| 3067 |
|
3065 |
|
| 3068 |
if ( C4::Context->preference('NoRenewalBeforePrecision') eq 'date' |
3066 |
if ( C4::Context->preference('NoRenewalBeforePrecision') eq 'date' |
|
Lines 3100-3108
sub GetLatestAutoRenewDate {
Link Here
|
| 3100 |
my $dbh = C4::Context->dbh; |
3098 |
my $dbh = C4::Context->dbh; |
| 3101 |
|
3099 |
|
| 3102 |
my $item = GetItem($itemnumber) or return; |
3100 |
my $item = GetItem($itemnumber) or return; |
| 3103 |
my $itemissue = GetItemIssue($itemnumber) or return; |
3101 |
my $itemissue = Koha::Issues->find( { itemnumber => $itemnumber } ) or return; |
| 3104 |
|
3102 |
|
| 3105 |
$borrowernumber ||= $itemissue->{borrowernumber}; |
3103 |
$borrowernumber ||= $itemissue->borrowernumber; |
| 3106 |
my $borrower = C4::Members::GetMember( borrowernumber => $borrowernumber ) |
3104 |
my $borrower = C4::Members::GetMember( borrowernumber => $borrowernumber ) |
| 3107 |
or return; |
3105 |
or return; |
| 3108 |
|
3106 |
|
|
Lines 3118-3124
sub GetLatestAutoRenewDate {
Link Here
|
| 3118 |
return if not $issuing_rule->no_auto_renewal_after |
3116 |
return if not $issuing_rule->no_auto_renewal_after |
| 3119 |
or $issuing_rule->no_auto_renewal_after eq ''; |
3117 |
or $issuing_rule->no_auto_renewal_after eq ''; |
| 3120 |
|
3118 |
|
| 3121 |
my $maximum_renewal_date = dt_from_string($itemissue->{issuedate}); |
3119 |
my $maximum_renewal_date = dt_from_string($itemissue->issuedate); |
| 3122 |
$maximum_renewal_date->add( |
3120 |
$maximum_renewal_date->add( |
| 3123 |
$issuing_rule->lengthunit => $issuing_rule->no_auto_renewal_after |
3121 |
$issuing_rule->lengthunit => $issuing_rule->no_auto_renewal_after |
| 3124 |
); |
3122 |
); |