Lines 1408-1414
sub AddIssue {
Link Here
|
1408 |
datelastborrowed => DateTime->now( time_zone => C4::Context->tz() )->ymd(), |
1408 |
datelastborrowed => DateTime->now( time_zone => C4::Context->tz() )->ymd(), |
1409 |
}, |
1409 |
}, |
1410 |
$item->{'biblionumber'}, |
1410 |
$item->{'biblionumber'}, |
1411 |
$item->{'itemnumber'} |
1411 |
$item->{'itemnumber'}, |
|
|
1412 |
0 |
1412 |
); |
1413 |
); |
1413 |
ModDateLastSeen( $item->{'itemnumber'} ); |
1414 |
ModDateLastSeen( $item->{'itemnumber'} ); |
1414 |
|
1415 |
|
Lines 1850-1856
sub AddReturn {
Link Here
|
1850 |
$item->{location} = $item->{permanent_location}; |
1851 |
$item->{location} = $item->{permanent_location}; |
1851 |
} |
1852 |
} |
1852 |
|
1853 |
|
1853 |
ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'} ); |
1854 |
ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'}, 0 ); |
1854 |
} |
1855 |
} |
1855 |
|
1856 |
|
1856 |
# full item data, but no borrowernumber or checkout info (no issue) |
1857 |
# full item data, but no borrowernumber or checkout info (no issue) |
Lines 1874-1880
sub AddReturn {
Link Here
|
1874 |
foreach my $key ( keys %$rules ) { |
1875 |
foreach my $key ( keys %$rules ) { |
1875 |
if ( $item->{notforloan} eq $key ) { |
1876 |
if ( $item->{notforloan} eq $key ) { |
1876 |
$messages->{'NotForLoanStatusUpdated'} = { from => $item->{notforloan}, to => $rules->{$key} }; |
1877 |
$messages->{'NotForLoanStatusUpdated'} = { from => $item->{notforloan}, to => $rules->{$key} }; |
1877 |
ModItem( { notforloan => $rules->{$key} }, undef, $itemnumber ); |
1878 |
ModItem( { notforloan => $rules->{$key} }, undef, $itemnumber, 0 ); |
1878 |
last; |
1879 |
last; |
1879 |
} |
1880 |
} |
1880 |
} |
1881 |
} |
Lines 1946-1952
sub AddReturn {
Link Here
|
1946 |
|
1947 |
|
1947 |
} |
1948 |
} |
1948 |
|
1949 |
|
1949 |
ModItem({ onloan => undef }, $item->{biblionumber}, $item->{'itemnumber'}); |
1950 |
ModItem( { onloan => undef }, $item->{biblionumber}, $item->{itemnumber}, 0 ); |
1950 |
} |
1951 |
} |
1951 |
|
1952 |
|
1952 |
# the holdingbranch is updated if the document is returned to another location. |
1953 |
# the holdingbranch is updated if the document is returned to another location. |
Lines 2185-2191
sub MarkIssueReturned {
Link Here
|
2185 |
# And finally delete the issue |
2186 |
# And finally delete the issue |
2186 |
$issue->delete; |
2187 |
$issue->delete; |
2187 |
|
2188 |
|
2188 |
ModItem( { 'onloan' => undef }, undef, $itemnumber ); |
2189 |
ModItem( { 'onloan' => undef }, undef, $itemnumber, 0 ); |
2189 |
|
2190 |
|
2190 |
if ( C4::Context->preference('StoreLastBorrower') ) { |
2191 |
if ( C4::Context->preference('StoreLastBorrower') ) { |
2191 |
my $item = Koha::Items->find( $itemnumber ); |
2192 |
my $item = Koha::Items->find( $itemnumber ); |
Lines 2437-2443
sub _FixAccountForLostAndReturned {
Link Here
|
2437 |
VALUES (?,?,?,?)"); |
2438 |
VALUES (?,?,?,?)"); |
2438 |
$usth->execute($borrowernumber, $data->{'accountno'}, $nextaccntno, $offset); |
2439 |
$usth->execute($borrowernumber, $data->{'accountno'}, $nextaccntno, $offset); |
2439 |
} |
2440 |
} |
2440 |
ModItem({ paidfor => '' }, undef, $itemnumber); |
2441 |
ModItem( { paidfor => '' }, undef, $itemnumber, 0 ); |
2441 |
return; |
2442 |
return; |
2442 |
} |
2443 |
} |
2443 |
|
2444 |
|
Lines 2853-2859
sub AddRenewal {
Link Here
|
2853 |
|
2854 |
|
2854 |
# Update the renewal count on the item, and tell zebra to reindex |
2855 |
# Update the renewal count on the item, and tell zebra to reindex |
2855 |
$renews = $item->{renewals} + 1; |
2856 |
$renews = $item->{renewals} + 1; |
2856 |
ModItem({ renewals => $renews, onloan => $datedue->strftime('%Y-%m-%d %H:%M')}, $item->{biblionumber}, $itemnumber); |
2857 |
ModItem( { renewals => $renews, onloan => $datedue->strftime('%Y-%m-%d %H:%M')}, $item->{biblionumber}, $itemnumber, 0 ); |
2857 |
|
2858 |
|
2858 |
# Charge a new rental fee, if applicable? |
2859 |
# Charge a new rental fee, if applicable? |
2859 |
my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber ); |
2860 |
my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber ); |
Lines 3708-3714
sub ProcessOfflineReturn {
Link Here
|
3708 |
ModItem( |
3709 |
ModItem( |
3709 |
{ renewals => 0, onloan => undef }, |
3710 |
{ renewals => 0, onloan => undef }, |
3710 |
$issue->{'biblionumber'}, |
3711 |
$issue->{'biblionumber'}, |
3711 |
$itemnumber |
3712 |
$itemnumber, |
|
|
3713 |
0 |
3712 |
); |
3714 |
); |
3713 |
return "Success."; |
3715 |
return "Success."; |
3714 |
} else { |
3716 |
} else { |