Lines 732-738
sub CanBookBeIssued {
Link Here
|
732 |
# |
732 |
# |
733 |
if ( $borrower->{'category_type'} eq 'X' && ( $item->{barcode} )) { |
733 |
if ( $borrower->{'category_type'} eq 'X' && ( $item->{barcode} )) { |
734 |
# stats only borrower -- add entry to statistics table, and return issuingimpossible{STATS} = 1 . |
734 |
# stats only borrower -- add entry to statistics table, and return issuingimpossible{STATS} = 1 . |
735 |
&UpdateStats(C4::Context->userenv->{'branch'},'localuse','','',$item->{'itemnumber'},$item->{'itemtype'},$borrower->{'borrowernumber'}); |
735 |
&UpdateStats(C4::Context->userenv->{'branch'},'localuse','','',$item->{'itemnumber'},$item->{'itemtype'},$borrower->{'borrowernumber'}, undef, $item->{'ccode'}); |
736 |
ModDateLastSeen( $item->{'itemnumber'} ); |
736 |
ModDateLastSeen( $item->{'itemnumber'} ); |
737 |
return( { STATS => 1 }, {}); |
737 |
return( { STATS => 1 }, {}); |
738 |
} |
738 |
} |
Lines 1172-1178
sub AddIssue {
Link Here
|
1172 |
C4::Context->userenv->{'branch'}, |
1172 |
C4::Context->userenv->{'branch'}, |
1173 |
'issue', $charge, |
1173 |
'issue', $charge, |
1174 |
($sipmode ? "SIP-$sipmode" : ''), $item->{'itemnumber'}, |
1174 |
($sipmode ? "SIP-$sipmode" : ''), $item->{'itemnumber'}, |
1175 |
$item->{'itype'}, $borrower->{'borrowernumber'} |
1175 |
$item->{'itype'}, $borrower->{'borrowernumber'}, undef, $item->{'ccode'} |
1176 |
); |
1176 |
); |
1177 |
|
1177 |
|
1178 |
# Send a checkout slip. |
1178 |
# Send a checkout slip. |
Lines 1740-1746
sub AddReturn {
Link Here
|
1740 |
$branch, $stat_type, '0', '', |
1740 |
$branch, $stat_type, '0', '', |
1741 |
$item->{'itemnumber'}, |
1741 |
$item->{'itemnumber'}, |
1742 |
$biblio->{'itemtype'}, |
1742 |
$biblio->{'itemtype'}, |
1743 |
$borrowernumber |
1743 |
$borrowernumber, undef, $item->{'ccode'} |
1744 |
); |
1744 |
); |
1745 |
|
1745 |
|
1746 |
# Send a check-in slip. # NOTE: borrower may be undef. probably shouldn't try to send messages then. |
1746 |
# Send a check-in slip. # NOTE: borrower may be undef. probably shouldn't try to send messages then. |
Lines 2472-2478
sub AddRenewal {
Link Here
|
2472 |
'Rent', $charge, $itemnumber ); |
2472 |
'Rent', $charge, $itemnumber ); |
2473 |
} |
2473 |
} |
2474 |
# Log the renewal |
2474 |
# Log the renewal |
2475 |
UpdateStats( $branch, 'renew', $charge, '', $itemnumber, $item->{itype}, $borrowernumber); |
2475 |
UpdateStats( $branch, 'renew', $charge, '', $itemnumber, $item->{itype}, $borrowernumber, undef, $item->{'ccode'}); |
2476 |
return $datedue; |
2476 |
return $datedue; |
2477 |
} |
2477 |
} |
2478 |
|
2478 |
|