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 |
- |
|
|