Lines 21-26
use strict;
Link Here
|
21 |
use warnings; |
21 |
use warnings; |
22 |
use Digest::MD5 qw(md5_base64); |
22 |
use Digest::MD5 qw(md5_base64); |
23 |
use JSON qw/encode_json decode_json/; |
23 |
use JSON qw/encode_json decode_json/; |
|
|
24 |
use URI; |
24 |
use URI::Escape; |
25 |
use URI::Escape; |
25 |
use CGI::Session; |
26 |
use CGI::Session; |
26 |
|
27 |
|
Lines 327-333
sub get_template_and_user {
Link Here
|
327 |
persona => C4::Context->preference("persona"), |
328 |
persona => C4::Context->preference("persona"), |
328 |
); |
329 |
); |
329 |
if ( $in->{'type'} eq "intranet" ) { |
330 |
if ( $in->{'type'} eq "intranet" ) { |
|
|
331 |
my $oldreferer = URI->new( $in->{query}->url() ); |
332 |
$oldreferer->query_form( $in->{query}->Vars ); |
333 |
|
330 |
$template->param( |
334 |
$template->param( |
|
|
335 |
oldreferer => uri_escape( $oldreferer->as_iri() ), |
331 |
AmazonCoverImages => C4::Context->preference("AmazonCoverImages"), |
336 |
AmazonCoverImages => C4::Context->preference("AmazonCoverImages"), |
332 |
AutoLocation => C4::Context->preference("AutoLocation"), |
337 |
AutoLocation => C4::Context->preference("AutoLocation"), |
333 |
"BiblioDefaultView".C4::Context->preference("IntranetBiblioDefaultView") => 1, |
338 |
"BiblioDefaultView".C4::Context->preference("IntranetBiblioDefaultView") => 1, |