|
Lines 72-77
my @cancel_result;
Link Here
|
| 72 |
if ( $op eq 'cancel_reserve' and $item) { |
72 |
if ( $op eq 'cancel_reserve' and $item) { |
| 73 |
my $res = cancel( $item, $borrowernumber, $fbr, $tbr ); |
73 |
my $res = cancel( $item, $borrowernumber, $fbr, $tbr ); |
| 74 |
push @cancel_result, $res if $res; |
74 |
push @cancel_result, $res if $res; |
|
|
75 |
} elsif ( $op =~ m|^mark_as_lost| ) { |
| 76 |
my $reserve_id = $input->param('reserve_id'); |
| 77 |
my $hold = Koha::Holds->find( $reserve_id ); |
| 78 |
die "wrong reserve_id" unless $hold; |
| 79 |
if ( C4::Context->preference('CanMarkHoldsAwaitingPickupAsLost') =~ m|^yes| ) { |
| 80 |
my $itemnumber = $hold->item->itemnumber; |
| 81 |
my $patron = $hold->borrower; |
| 82 |
C4::Circulation::LostItem( $itemnumber, 'MARK RETURNED' ); # FIXME Do we have to mark it returned? There is no pref for that? See other occurrences of 'LostItem(' |
| 83 |
if ( $op eq 'mark_as_lost_and_notify' and C4::Context->preference('CanMarkHoldsAwaitingPickupAsLost') eq 'yes_and_notify' ) { |
| 84 |
my $library = $hold->branch; |
| 85 |
my $letter = C4::Letters::GetPreparedLetter( |
| 86 |
module => 'reserves', |
| 87 |
letter_code => 'CANCEL_HOLD_ON_LOST', |
| 88 |
branchcode => $library->branchcode, # FIXME Is it what we want? |
| 89 |
lang => $patron->lang, |
| 90 |
tables => { |
| 91 |
branches => $library->branchcode, |
| 92 |
borrowers => $patron->borrowernumber, |
| 93 |
items => $itemnumber, |
| 94 |
biblio => $hold->biblionumber, |
| 95 |
biblioitems => $hold->biblionumber, |
| 96 |
reserves => $hold->unblessed, |
| 97 |
}, |
| 98 |
); |
| 99 |
if ( $letter ) { |
| 100 |
my $admin_email_address = $library->branchemail || C4::Context->preference('KohaAdminEmailAddress'); |
| 101 |
|
| 102 |
C4::Letters::EnqueueLetter( |
| 103 |
{ letter => $letter, |
| 104 |
borrowernumber => $patron->borrowernumber, |
| 105 |
message_transport_type => 'email', |
| 106 |
from_address => $admin_email_address, |
| 107 |
} |
| 108 |
); |
| 109 |
} |
| 110 |
} |
| 111 |
my $res = cancel( $itemnumber, $patron->borrowernumber, $fbr, $tbr ); |
| 112 |
push @cancel_result, $res if $res; |
| 113 |
}# else the url parameters have been modified and the user is not allowed to continue |
| 114 |
|
| 75 |
} |
115 |
} |
| 76 |
|
116 |
|
| 77 |
if ( C4::Context->preference('IndependentBranches') ) { |
117 |
if ( C4::Context->preference('IndependentBranches') ) { |
|
Lines 103-108
foreach my $num (@getreserves) {
Link Here
|
| 103 |
my %getreserv = ( |
143 |
my %getreserv = ( |
| 104 |
itemnumber => $itemnumber, |
144 |
itemnumber => $itemnumber, |
| 105 |
borrowernum => $borrowernum, |
145 |
borrowernum => $borrowernum, |
|
|
146 |
reserve_id => $num->{reserve_id}, |
| 106 |
); |
147 |
); |
| 107 |
|
148 |
|
| 108 |
my $patron = Koha::Patrons->find( $num->{borrowernumber} ); |
149 |
my $patron = Koha::Patrons->find( $num->{borrowernumber} ); |