|
Lines 1442-1448
sub AddIssue {
Link Here
|
| 1442 |
SendCirculationAlert( |
1442 |
SendCirculationAlert( |
| 1443 |
{ |
1443 |
{ |
| 1444 |
type => 'CHECKOUT', |
1444 |
type => 'CHECKOUT', |
| 1445 |
item => $item, |
1445 |
item => $item->unblessed, |
| 1446 |
borrower => $borrower, |
1446 |
borrower => $borrower, |
| 1447 |
branch => $branch, |
1447 |
branch => $branch, |
| 1448 |
} |
1448 |
} |
|
Lines 1812-1825
sub AddReturn {
Link Here
|
| 1812 |
my $itemnumber = $item->itemnumber; |
1812 |
my $itemnumber = $item->itemnumber; |
| 1813 |
my $itemtype = $item->effective_itemtype; |
1813 |
my $itemtype = $item->effective_itemtype; |
| 1814 |
|
1814 |
|
| 1815 |
my $issue = Koha::Checkouts->find( { itemnumber => $itemnumber } ); |
1815 |
my $issue = $item->checkout; |
| 1816 |
if ( $issue ) { |
1816 |
if ( $issue ) { |
| 1817 |
$patron = Koha::Patrons->find( $issue->borrowernumber ) |
1817 |
$patron = $issue->patron |
| 1818 |
or die "Data inconsistency: barcode $barcode (itemnumber:$itemnumber) claims to be issued to non-existent borrowernumber '" . $issue->borrowernumber . "'\n" |
1818 |
or die "Data inconsistency: barcode $barcode (itemnumber:$itemnumber) claims to be issued to non-existent borrowernumber '" . $issue->borrowernumber . "'\n" |
| 1819 |
. Dumper($issue->unblessed) . "\n"; |
1819 |
. Dumper($issue->unblessed) . "\n"; |
| 1820 |
} else { |
1820 |
} else { |
| 1821 |
$messages->{'NotIssued'} = $barcode; |
1821 |
$messages->{'NotIssued'} = $barcode; |
| 1822 |
ModItem({ onloan => undef }, $item->{biblionumber}, $item->{itemnumber}) if defined $item->{onloan}; |
1822 |
ModItem({ onloan => undef }, $item->biblionumber, $item->itemnumber) if defined $item->onloan; |
| 1823 |
# even though item is not on loan, it may still be transferred; therefore, get current branch info |
1823 |
# even though item is not on loan, it may still be transferred; therefore, get current branch info |
| 1824 |
$doreturn = 0; |
1824 |
$doreturn = 0; |
| 1825 |
# No issue, no borrowernumber. ONLY if $doreturn, *might* you have a $borrower later. |
1825 |
# No issue, no borrowernumber. ONLY if $doreturn, *might* you have a $borrower later. |
|
Lines 2616-2629
sub CanBookBeRenewed {
Link Here
|
| 2616 |
my $renews = 1; |
2616 |
my $renews = 1; |
| 2617 |
|
2617 |
|
| 2618 |
my $item = Koha::Items->find($itemnumber) or return ( 0, 'no_item' ); |
2618 |
my $item = Koha::Items->find($itemnumber) or return ( 0, 'no_item' ); |
| 2619 |
my $issue = Koha::Checkouts->find( { itemnumber => $itemnumber } ) or return ( 0, 'no_checkout' ); |
2619 |
my $issue = $item->checkout or return ( 0, 'no_checkout' ); |
| 2620 |
return ( 0, 'onsite_checkout' ) if $issue->onsite_checkout; |
2620 |
return ( 0, 'onsite_checkout' ) if $issue->onsite_checkout; |
| 2621 |
return ( 0, 'item_denied_renewal') if _item_denied_renewal({ item => $item }); |
2621 |
return ( 0, 'item_denied_renewal') if _item_denied_renewal({ item => $item }); |
| 2622 |
|
2622 |
|
| 2623 |
|
2623 |
my $patron = $issue->patron or return; |
| 2624 |
$borrowernumber ||= $issue->borrowernumber; |
|
|
| 2625 |
my $patron = Koha::Patrons->find( $borrowernumber ) |
| 2626 |
or return; |
| 2627 |
|
2624 |
|
| 2628 |
my ( $resfound, $resrec, undef ) = C4::Reserves::CheckReserves($itemnumber); |
2625 |
my ( $resfound, $resrec, undef ) = C4::Reserves::CheckReserves($itemnumber); |
| 2629 |
|
2626 |
|
|
Lines 4135-4141
sub _item_denied_renewal {
Link Here
|
| 4135 |
my $denyingrules = Koha::Config::SysPrefs->find('ItemsDeniedRenewal')->get_yaml_pref_hash(); |
4132 |
my $denyingrules = Koha::Config::SysPrefs->find('ItemsDeniedRenewal')->get_yaml_pref_hash(); |
| 4136 |
return unless $denyingrules; |
4133 |
return unless $denyingrules; |
| 4137 |
foreach my $field (keys %$denyingrules) { |
4134 |
foreach my $field (keys %$denyingrules) { |
| 4138 |
my $val = $item->{$field}; |
4135 |
my $val = $item->$field; |
| 4139 |
if( !defined $val) { |
4136 |
if( !defined $val) { |
| 4140 |
if ( any { !defined $_ } @{$denyingrules->{$field}} ){ |
4137 |
if ( any { !defined $_ } @{$denyingrules->{$field}} ){ |
| 4141 |
return 1; |
4138 |
return 1; |
| 4142 |
- |
|
|