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