Lines 1416-1422
sub AddIssue {
Link Here
|
1416 |
datelastborrowed => DateTime->now( time_zone => C4::Context->tz() )->ymd(), |
1416 |
datelastborrowed => DateTime->now( time_zone => C4::Context->tz() )->ymd(), |
1417 |
}, |
1417 |
}, |
1418 |
$item->{'biblionumber'}, |
1418 |
$item->{'biblionumber'}, |
1419 |
$item->{'itemnumber'} |
1419 |
$item->{'itemnumber'}, |
|
|
1420 |
0 |
1420 |
); |
1421 |
); |
1421 |
ModDateLastSeen( $item->{'itemnumber'} ); |
1422 |
ModDateLastSeen( $item->{'itemnumber'} ); |
1422 |
|
1423 |
|
Lines 1854-1860
sub AddReturn {
Link Here
|
1854 |
$item->{location} = $item->{permanent_location}; |
1855 |
$item->{location} = $item->{permanent_location}; |
1855 |
} |
1856 |
} |
1856 |
|
1857 |
|
1857 |
ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'} ); |
1858 |
ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'}, 0 ); |
1858 |
} |
1859 |
} |
1859 |
|
1860 |
|
1860 |
# full item data, but no borrowernumber or checkout info (no issue) |
1861 |
# full item data, but no borrowernumber or checkout info (no issue) |
Lines 1878-1884
sub AddReturn {
Link Here
|
1878 |
foreach my $key ( keys %$rules ) { |
1879 |
foreach my $key ( keys %$rules ) { |
1879 |
if ( $item->{notforloan} eq $key ) { |
1880 |
if ( $item->{notforloan} eq $key ) { |
1880 |
$messages->{'NotForLoanStatusUpdated'} = { from => $item->{notforloan}, to => $rules->{$key} }; |
1881 |
$messages->{'NotForLoanStatusUpdated'} = { from => $item->{notforloan}, to => $rules->{$key} }; |
1881 |
ModItem( { notforloan => $rules->{$key} }, undef, $itemnumber ); |
1882 |
ModItem( { notforloan => $rules->{$key} }, undef, $itemnumber, 0 ); |
1882 |
last; |
1883 |
last; |
1883 |
} |
1884 |
} |
1884 |
} |
1885 |
} |
Lines 1950-1956
sub AddReturn {
Link Here
|
1950 |
|
1951 |
|
1951 |
} |
1952 |
} |
1952 |
|
1953 |
|
1953 |
ModItem({ onloan => undef }, $item->{biblionumber}, $item->{'itemnumber'}); |
1954 |
ModItem( { onloan => undef }, $item->{biblionumber}, $item->{itemnumber}, 0 ); |
1954 |
} |
1955 |
} |
1955 |
|
1956 |
|
1956 |
# the holdingbranch is updated if the document is returned to another location. |
1957 |
# the holdingbranch is updated if the document is returned to another location. |
Lines 2186-2192
sub MarkIssueReturned {
Link Here
|
2186 |
# And finally delete the issue |
2187 |
# And finally delete the issue |
2187 |
$issue->delete; |
2188 |
$issue->delete; |
2188 |
|
2189 |
|
2189 |
ModItem( { 'onloan' => undef }, undef, $itemnumber ); |
2190 |
ModItem( { 'onloan' => undef }, undef, $itemnumber, 0 ); |
2190 |
|
2191 |
|
2191 |
if ( C4::Context->preference('StoreLastBorrower') ) { |
2192 |
if ( C4::Context->preference('StoreLastBorrower') ) { |
2192 |
my $item = Koha::Items->find( $itemnumber ); |
2193 |
my $item = Koha::Items->find( $itemnumber ); |
Lines 2425-2431
sub _FixAccountForLostAndReturned {
Link Here
|
2425 |
} |
2426 |
} |
2426 |
); |
2427 |
); |
2427 |
|
2428 |
|
2428 |
ModItem( { paidfor => '' }, undef, $itemnumber ); |
2429 |
ModItem( { paidfor => '' }, undef, $itemnumber, 0 ); |
2429 |
|
2430 |
|
2430 |
return $credit_id; |
2431 |
return $credit_id; |
2431 |
} |
2432 |
} |
Lines 2842-2848
sub AddRenewal {
Link Here
|
2842 |
|
2843 |
|
2843 |
# Update the renewal count on the item, and tell zebra to reindex |
2844 |
# Update the renewal count on the item, and tell zebra to reindex |
2844 |
$renews = $item->{renewals} + 1; |
2845 |
$renews = $item->{renewals} + 1; |
2845 |
ModItem({ renewals => $renews, onloan => $datedue->strftime('%Y-%m-%d %H:%M')}, $item->{biblionumber}, $itemnumber); |
2846 |
ModItem( { renewals => $renews, onloan => $datedue->strftime('%Y-%m-%d %H:%M')}, $item->{biblionumber}, $itemnumber, 0 ); |
2846 |
|
2847 |
|
2847 |
# Charge a new rental fee, if applicable? |
2848 |
# Charge a new rental fee, if applicable? |
2848 |
my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber ); |
2849 |
my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber ); |
Lines 3718-3724
sub ProcessOfflineReturn {
Link Here
|
3718 |
ModItem( |
3719 |
ModItem( |
3719 |
{ renewals => 0, onloan => undef }, |
3720 |
{ renewals => 0, onloan => undef }, |
3720 |
$issue->{'biblionumber'}, |
3721 |
$issue->{'biblionumber'}, |
3721 |
$itemnumber |
3722 |
$itemnumber, |
|
|
3723 |
0 |
3722 |
); |
3724 |
); |
3723 |
return "Success."; |
3725 |
return "Success."; |
3724 |
} else { |
3726 |
} else { |