|
Lines 24-31
use JSON qw( encode_json );
Link Here
|
| 24 |
use CGI qw ( -utf8 ); |
24 |
use CGI qw ( -utf8 ); |
| 25 |
use C4::Auth qw( get_template_and_user ); |
25 |
use C4::Auth qw( get_template_and_user ); |
| 26 |
use C4::Koha; |
26 |
use C4::Koha; |
| 27 |
use C4::Output qw( output_html_with_http_headers ); |
27 |
use C4::Output qw( output_html_with_http_headers ); |
| 28 |
use POSIX qw( strftime ); |
28 |
use Digest::MD5 qw( md5_base64 ); |
|
|
29 |
use POSIX qw( strftime ); |
| 30 |
use String::Random qw( random_string ); |
| 29 |
|
31 |
|
| 30 |
use Koha::ILL::Request::Config; |
32 |
use Koha::ILL::Request::Config; |
| 31 |
use Koha::ILL::Requests; |
33 |
use Koha::ILL::Requests; |
|
Lines 119-124
if ( $op eq 'list' ) {
Link Here
|
| 119 |
my $req = Koha::ILL::Request->new; |
121 |
my $req = Koha::ILL::Request->new; |
| 120 |
$template->param( backends => $backends ); |
122 |
$template->param( backends => $backends ); |
| 121 |
} else { |
123 |
} else { |
|
|
124 |
|
| 125 |
if ( C4::Context->preference('ILLOpacUnauthenticatedRequest') && !$patron ) { |
| 126 |
my $captcha = random_string("CCCCC"); |
| 127 |
$template->param( |
| 128 |
captcha => $captcha, |
| 129 |
captcha_digest => md5_base64($captcha), |
| 130 |
); |
| 131 |
} |
| 132 |
|
| 122 |
$params->{backend} = 'Standard' if $params->{backend} eq 'FreeForm'; |
133 |
$params->{backend} = 'Standard' if $params->{backend} eq 'FreeForm'; |
| 123 |
my $request = Koha::ILL::Request->new->load_backend( $params->{backend} ); |
134 |
my $request = Koha::ILL::Request->new->load_backend( $params->{backend} ); |
| 124 |
|
135 |
|
|
Lines 155-160
if ( $op eq 'list' ) {
Link Here
|
| 155 |
exit; |
166 |
exit; |
| 156 |
} |
167 |
} |
| 157 |
|
168 |
|
|
|
169 |
if ( $request->_backend_capability( 'can_create_request', $params ) ) { |
| 170 |
if ( md5_base64( uc( $params->{captcha} ) ) ne $params->{captcha_digest} ) { |
| 171 |
$params->{failed_captcha} = 1; |
| 172 |
} |
| 173 |
} |
| 174 |
|
| 158 |
$params->{cardnumber} = $patron->cardnumber if $patron; |
175 |
$params->{cardnumber} = $patron->cardnumber if $patron; |
| 159 |
$params->{branchcode} = $patron->branchcode if $patron; |
176 |
$params->{branchcode} = $patron->branchcode if $patron; |
| 160 |
$params->{opac} = 1; |
177 |
$params->{opac} = 1; |
| 161 |
- |
|
|