Lines 27-32
use Koha::AuthorisedValues;
Link Here
|
27 |
use Koha::Illrequests; |
27 |
use Koha::Illrequests; |
28 |
use Koha::Libraries; |
28 |
use Koha::Libraries; |
29 |
|
29 |
|
|
|
30 |
use Try::Tiny; |
31 |
|
30 |
our $cgi = CGI->new; |
32 |
our $cgi = CGI->new; |
31 |
my $illRequests = Koha::Illrequests->new; |
33 |
my $illRequests = Koha::Illrequests->new; |
32 |
|
34 |
|
Lines 182-198
if ( $backends_available ) {
Link Here
|
182 |
handle_commit_maybe($backend_result, $request); |
184 |
handle_commit_maybe($backend_result, $request); |
183 |
|
185 |
|
184 |
} elsif ( $op eq 'generic_confirm' ) { |
186 |
} elsif ( $op eq 'generic_confirm' ) { |
185 |
my $request = Koha::Illrequests->find($params->{illrequest_id}); |
187 |
try { |
186 |
$params->{current_branchcode} = C4::Context->mybranch; |
188 |
my $request = Koha::Illrequests->find($params->{illrequest_id}); |
187 |
my $backend_result = $request->generic_confirm($params); |
189 |
$params->{current_branchcode} = C4::Context->mybranch; |
188 |
$template->param( |
190 |
my $backend_result = $request->generic_confirm($params); |
189 |
whole => $backend_result, |
191 |
$template->param( |
190 |
request => $request, |
192 |
whole => $backend_result, |
191 |
); |
193 |
request => $request, |
192 |
|
194 |
); |
193 |
# handle special commit rules & update type |
195 |
$template->param( error => $params->{error} ) |
194 |
handle_commit_maybe($backend_result, $request); |
196 |
if $params->{error}; |
195 |
|
197 |
|
|
|
198 |
# handle special commit rules & update type |
199 |
handle_commit_maybe($backend_result, $request); |
200 |
} |
201 |
catch { |
202 |
my $error; |
203 |
if ( $_->isa( 'Koha::Exceptions::Ill::NoTargetEmail' ) ) { |
204 |
$error = 'no_target_email'; |
205 |
} |
206 |
elsif ( $_->isa( 'Koha::Exceptions::Ill::NoLibraryEmail' ) ) { |
207 |
$error = 'no_library_email'; |
208 |
} |
209 |
else { |
210 |
$error = 'unknown_error'; |
211 |
} |
212 |
print $cgi->redirect( |
213 |
"/cgi-bin/koha/ill/ill-requests.pl?" . |
214 |
"method=generic_confirm&illrequest_id=" . |
215 |
$params->{illrequest_id} . |
216 |
"&error=$error" ); |
217 |
exit; |
218 |
}; |
196 |
} elsif ( $op eq 'illlist') { |
219 |
} elsif ( $op eq 'illlist') { |
197 |
# Display all current ILLs |
220 |
# Display all current ILLs |
198 |
my $requests = $illRequests->search(); |
221 |
my $requests = $illRequests->search(); |