Lines 1400-1406
sub AddIssue {
Link Here
|
1400 |
}, |
1400 |
}, |
1401 |
$item->{'biblionumber'}, |
1401 |
$item->{'biblionumber'}, |
1402 |
$item->{'itemnumber'}, |
1402 |
$item->{'itemnumber'}, |
1403 |
0 |
1403 |
{ log_action => 0 } |
1404 |
); |
1404 |
); |
1405 |
ModDateLastSeen( $item->{'itemnumber'} ); |
1405 |
ModDateLastSeen( $item->{'itemnumber'} ); |
1406 |
|
1406 |
|
Lines 1833-1839
sub AddReturn {
Link Here
|
1833 |
$item->{location} = $item->{permanent_location}; |
1833 |
$item->{location} = $item->{permanent_location}; |
1834 |
} |
1834 |
} |
1835 |
|
1835 |
|
1836 |
ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'}, 0 ); |
1836 |
ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'}, { log_action => 0 } ); |
1837 |
} |
1837 |
} |
1838 |
|
1838 |
|
1839 |
# full item data, but no borrowernumber or checkout info (no issue) |
1839 |
# full item data, but no borrowernumber or checkout info (no issue) |
Lines 1857-1863
sub AddReturn {
Link Here
|
1857 |
foreach my $key ( keys %$rules ) { |
1857 |
foreach my $key ( keys %$rules ) { |
1858 |
if ( $item->{notforloan} eq $key ) { |
1858 |
if ( $item->{notforloan} eq $key ) { |
1859 |
$messages->{'NotForLoanStatusUpdated'} = { from => $item->{notforloan}, to => $rules->{$key} }; |
1859 |
$messages->{'NotForLoanStatusUpdated'} = { from => $item->{notforloan}, to => $rules->{$key} }; |
1860 |
ModItem( { notforloan => $rules->{$key} }, undef, $itemnumber, 0 ); |
1860 |
ModItem( { notforloan => $rules->{$key} }, undef, $itemnumber, { log_action => 0 } ); |
1861 |
last; |
1861 |
last; |
1862 |
} |
1862 |
} |
1863 |
} |
1863 |
} |
Lines 1923-1929
sub AddReturn {
Link Here
|
1923 |
|
1923 |
|
1924 |
} |
1924 |
} |
1925 |
|
1925 |
|
1926 |
ModItem( { onloan => undef }, $item->{biblionumber}, $item->{itemnumber}, 0 ); |
1926 |
ModItem( { onloan => undef }, $item->{biblionumber}, $item->{itemnumber}, { log_action => 0 } ); |
1927 |
} |
1927 |
} |
1928 |
|
1928 |
|
1929 |
# the holdingbranch is updated if the document is returned to another location. |
1929 |
# the holdingbranch is updated if the document is returned to another location. |
Lines 2159-2165
sub MarkIssueReturned {
Link Here
|
2159 |
# And finally delete the issue |
2159 |
# And finally delete the issue |
2160 |
$issue->delete; |
2160 |
$issue->delete; |
2161 |
|
2161 |
|
2162 |
ModItem( { 'onloan' => undef }, undef, $itemnumber, 0 ); |
2162 |
ModItem( { 'onloan' => undef }, undef, $itemnumber, { log_action => 0 } ); |
2163 |
|
2163 |
|
2164 |
if ( C4::Context->preference('StoreLastBorrower') ) { |
2164 |
if ( C4::Context->preference('StoreLastBorrower') ) { |
2165 |
my $item = Koha::Items->find( $itemnumber ); |
2165 |
my $item = Koha::Items->find( $itemnumber ); |
Lines 2398-2404
sub _FixAccountForLostAndReturned {
Link Here
|
2398 |
} |
2398 |
} |
2399 |
); |
2399 |
); |
2400 |
|
2400 |
|
2401 |
ModItem( { paidfor => '' }, undef, $itemnumber, 0 ); |
2401 |
ModItem( { paidfor => '' }, undef, $itemnumber, { log_action => 0 } ); |
2402 |
|
2402 |
|
2403 |
return $credit_id; |
2403 |
return $credit_id; |
2404 |
} |
2404 |
} |
Lines 2823-2829
sub AddRenewal {
Link Here
|
2823 |
|
2823 |
|
2824 |
# Update the renewal count on the item, and tell zebra to reindex |
2824 |
# Update the renewal count on the item, and tell zebra to reindex |
2825 |
$renews = $item->{renewals} + 1; |
2825 |
$renews = $item->{renewals} + 1; |
2826 |
ModItem( { renewals => $renews, onloan => $datedue->strftime('%Y-%m-%d %H:%M')}, $item->{biblionumber}, $itemnumber, 0 ); |
2826 |
ModItem( { renewals => $renews, onloan => $datedue->strftime('%Y-%m-%d %H:%M')}, $item->{biblionumber}, $itemnumber, { log_action => 0 } ); |
2827 |
|
2827 |
|
2828 |
# Charge a new rental fee, if applicable? |
2828 |
# Charge a new rental fee, if applicable? |
2829 |
my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber ); |
2829 |
my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber ); |
Lines 3703-3709
sub ProcessOfflineReturn {
Link Here
|
3703 |
{ renewals => 0, onloan => undef }, |
3703 |
{ renewals => 0, onloan => undef }, |
3704 |
$issue->{'biblionumber'}, |
3704 |
$issue->{'biblionumber'}, |
3705 |
$itemnumber, |
3705 |
$itemnumber, |
3706 |
0 |
3706 |
{ log_action => 0 } |
3707 |
); |
3707 |
); |
3708 |
return "Success."; |
3708 |
return "Success."; |
3709 |
} else { |
3709 |
} else { |