|
Lines 685-691
sub CanBookBeIssued {
Link Here
|
| 685 |
# |
685 |
# |
| 686 |
if ( $borrower->{'category_type'} eq 'X' && ( $item->{barcode} )) { |
686 |
if ( $borrower->{'category_type'} eq 'X' && ( $item->{barcode} )) { |
| 687 |
# stats only borrower -- add entry to statistics table, and return issuingimpossible{STATS} = 1 . |
687 |
# stats only borrower -- add entry to statistics table, and return issuingimpossible{STATS} = 1 . |
| 688 |
&UpdateStats(C4::Context->userenv->{'branch'},'localuse','','',$item->{'itemnumber'},$item->{'itemtype'},$borrower->{'borrowernumber'}); |
688 |
&UpdateStats(C4::Context->userenv->{'branch'},'localuse','','',$item->{'itemnumber'},$item->{'itemtype'},$borrower->{'borrowernumber'}, undef, $item->{'ccode'}); |
| 689 |
return( { STATS => 1 }, {}); |
689 |
return( { STATS => 1 }, {}); |
| 690 |
} |
690 |
} |
| 691 |
if ( $borrower->{flags}->{GNA} ) { |
691 |
if ( $borrower->{flags}->{GNA} ) { |
|
Lines 1036-1042
sub AddIssue {
Link Here
|
| 1036 |
C4::Context->userenv->{'branch'}, |
1036 |
C4::Context->userenv->{'branch'}, |
| 1037 |
'issue', $charge, |
1037 |
'issue', $charge, |
| 1038 |
($sipmode ? "SIP-$sipmode" : ''), $item->{'itemnumber'}, |
1038 |
($sipmode ? "SIP-$sipmode" : ''), $item->{'itemnumber'}, |
| 1039 |
$item->{'itype'}, $borrower->{'borrowernumber'} |
1039 |
$item->{'itype'}, $borrower->{'borrowernumber'}, undef, $item->{'ccode'} |
| 1040 |
); |
1040 |
); |
| 1041 |
|
1041 |
|
| 1042 |
# Send a checkout slip. |
1042 |
# Send a checkout slip. |
|
Lines 1541-1547
sub AddReturn {
Link Here
|
| 1541 |
$branch, 'return', '0', '', |
1541 |
$branch, 'return', '0', '', |
| 1542 |
$item->{'itemnumber'}, |
1542 |
$item->{'itemnumber'}, |
| 1543 |
$biblio->{'itemtype'}, |
1543 |
$biblio->{'itemtype'}, |
| 1544 |
$borrowernumber |
1544 |
$borrowernumber, undef, $item->{'ccode'} |
| 1545 |
); |
1545 |
); |
| 1546 |
|
1546 |
|
| 1547 |
# Send a check-in slip. # NOTE: borrower may be undef. probably shouldn't try to send messages then. |
1547 |
# Send a check-in slip. # NOTE: borrower may be undef. probably shouldn't try to send messages then. |
|
Lines 2194-2200
sub AddRenewal {
Link Here
|
| 2194 |
$sth->finish; |
2194 |
$sth->finish; |
| 2195 |
} |
2195 |
} |
| 2196 |
# Log the renewal |
2196 |
# Log the renewal |
| 2197 |
UpdateStats( $branch, 'renew', $charge, '', $itemnumber, $item->{itype}, $borrowernumber); |
2197 |
UpdateStats( $branch, 'renew', $charge, '', $itemnumber, $item->{itype}, $borrowernumber, undef, $item->{'ccode'}); |
| 2198 |
return $datedue; |
2198 |
return $datedue; |
| 2199 |
} |
2199 |
} |
| 2200 |
|
2200 |
|