@@ -, +, @@ --- C4/Auth.pm | 5 +++++ .../intranet-tmpl/prog/en/includes/header.inc | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) --- a/C4/Auth.pm +++ a/C4/Auth.pm @@ -21,6 +21,7 @@ use strict; use warnings; use Digest::MD5 qw(md5_base64); use JSON qw/encode_json decode_json/; +use URI; use URI::Escape; use CGI::Session; @@ -327,7 +328,11 @@ sub get_template_and_user { persona => C4::Context->preference("persona"), ); if ( $in->{'type'} eq "intranet" ) { + my $oldreferer = URI->new( $in->{query}->url() ); + $oldreferer->query_form( $in->{query}->Vars ); + $template->param( + oldreferer => uri_escape( $oldreferer->as_iri() ), AmazonCoverImages => C4::Context->preference("AmazonCoverImages"), AutoLocation => C4::Context->preference("AutoLocation"), "BiblioDefaultView".C4::Context->preference("IntranetBiblioDefaultView") => 1, --- a/koha-tmpl/intranet-tmpl/prog/en/includes/header.inc +++ a/koha-tmpl/intranet-tmpl/prog/en/includes/header.inc @@ -65,12 +65,12 @@ [% IF ( IndependentBranches ) %] [% IF ( CAN_user_management || CAN_user_editcatalogue_edit_catalogue ) %]
  • - Set library + Set library
  • [% END %] [% ELSE %]
  • - Set library + Set library
  • [% END %]
  • --