Lines 1397-1403
sub AddIssue {
Link Here
|
1397 |
datelastborrowed => DateTime->now( time_zone => C4::Context->tz() )->ymd(), |
1397 |
datelastborrowed => DateTime->now( time_zone => C4::Context->tz() )->ymd(), |
1398 |
}, |
1398 |
}, |
1399 |
$item->{'biblionumber'}, |
1399 |
$item->{'biblionumber'}, |
1400 |
$item->{'itemnumber'} |
1400 |
$item->{'itemnumber'}, |
|
|
1401 |
0 |
1401 |
); |
1402 |
); |
1402 |
ModDateLastSeen( $item->{'itemnumber'} ); |
1403 |
ModDateLastSeen( $item->{'itemnumber'} ); |
1403 |
|
1404 |
|
Lines 1830-1836
sub AddReturn {
Link Here
|
1830 |
$item->{location} = $item->{permanent_location}; |
1831 |
$item->{location} = $item->{permanent_location}; |
1831 |
} |
1832 |
} |
1832 |
|
1833 |
|
1833 |
ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'} ); |
1834 |
ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'}, 0 ); |
1834 |
} |
1835 |
} |
1835 |
|
1836 |
|
1836 |
# full item data, but no borrowernumber or checkout info (no issue) |
1837 |
# full item data, but no borrowernumber or checkout info (no issue) |
Lines 1854-1860
sub AddReturn {
Link Here
|
1854 |
foreach my $key ( keys %$rules ) { |
1855 |
foreach my $key ( keys %$rules ) { |
1855 |
if ( $item->{notforloan} eq $key ) { |
1856 |
if ( $item->{notforloan} eq $key ) { |
1856 |
$messages->{'NotForLoanStatusUpdated'} = { from => $item->{notforloan}, to => $rules->{$key} }; |
1857 |
$messages->{'NotForLoanStatusUpdated'} = { from => $item->{notforloan}, to => $rules->{$key} }; |
1857 |
ModItem( { notforloan => $rules->{$key} }, undef, $itemnumber ); |
1858 |
ModItem( { notforloan => $rules->{$key} }, undef, $itemnumber, 0 ); |
1858 |
last; |
1859 |
last; |
1859 |
} |
1860 |
} |
1860 |
} |
1861 |
} |
Lines 1920-1926
sub AddReturn {
Link Here
|
1920 |
|
1921 |
|
1921 |
} |
1922 |
} |
1922 |
|
1923 |
|
1923 |
ModItem({ onloan => undef }, $item->{biblionumber}, $item->{'itemnumber'}); |
1924 |
ModItem( { onloan => undef }, $item->{biblionumber}, $item->{itemnumber}, 0 ); |
1924 |
} |
1925 |
} |
1925 |
|
1926 |
|
1926 |
# the holdingbranch is updated if the document is returned to another location. |
1927 |
# the holdingbranch is updated if the document is returned to another location. |
Lines 2156-2162
sub MarkIssueReturned {
Link Here
|
2156 |
# And finally delete the issue |
2157 |
# And finally delete the issue |
2157 |
$issue->delete; |
2158 |
$issue->delete; |
2158 |
|
2159 |
|
2159 |
ModItem( { 'onloan' => undef }, undef, $itemnumber ); |
2160 |
ModItem( { 'onloan' => undef }, undef, $itemnumber, 0 ); |
2160 |
|
2161 |
|
2161 |
if ( C4::Context->preference('StoreLastBorrower') ) { |
2162 |
if ( C4::Context->preference('StoreLastBorrower') ) { |
2162 |
my $item = Koha::Items->find( $itemnumber ); |
2163 |
my $item = Koha::Items->find( $itemnumber ); |
Lines 2395-2401
sub _FixAccountForLostAndReturned {
Link Here
|
2395 |
} |
2396 |
} |
2396 |
); |
2397 |
); |
2397 |
|
2398 |
|
2398 |
ModItem( { paidfor => '' }, undef, $itemnumber ); |
2399 |
ModItem( { paidfor => '' }, undef, $itemnumber, 0 ); |
2399 |
|
2400 |
|
2400 |
return $credit_id; |
2401 |
return $credit_id; |
2401 |
} |
2402 |
} |
Lines 2820-2826
sub AddRenewal {
Link Here
|
2820 |
|
2821 |
|
2821 |
# Update the renewal count on the item, and tell zebra to reindex |
2822 |
# Update the renewal count on the item, and tell zebra to reindex |
2822 |
$renews = $item->{renewals} + 1; |
2823 |
$renews = $item->{renewals} + 1; |
2823 |
ModItem({ renewals => $renews, onloan => $datedue->strftime('%Y-%m-%d %H:%M')}, $item->{biblionumber}, $itemnumber); |
2824 |
ModItem( { renewals => $renews, onloan => $datedue->strftime('%Y-%m-%d %H:%M')}, $item->{biblionumber}, $itemnumber, 0 ); |
2824 |
|
2825 |
|
2825 |
# Charge a new rental fee, if applicable? |
2826 |
# Charge a new rental fee, if applicable? |
2826 |
my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber ); |
2827 |
my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber ); |
Lines 3699-3705
sub ProcessOfflineReturn {
Link Here
|
3699 |
ModItem( |
3700 |
ModItem( |
3700 |
{ renewals => 0, onloan => undef }, |
3701 |
{ renewals => 0, onloan => undef }, |
3701 |
$issue->{'biblionumber'}, |
3702 |
$issue->{'biblionumber'}, |
3702 |
$itemnumber |
3703 |
$itemnumber, |
|
|
3704 |
0 |
3703 |
); |
3705 |
); |
3704 |
return "Success."; |
3706 |
return "Success."; |
3705 |
} else { |
3707 |
} else { |