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