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} ); |