From 2fc44fa3ffec617e7db861838d538921acfad173 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Mon, 13 Jan 2014 14:18:44 -0500 Subject: [PATCH] Bug 11532 - Possible start for a fix --- C4/Auth.pm | 5 +++++ .../intranet-tmpl/prog/en/includes/header.inc | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/C4/Auth.pm b/C4/Auth.pm index 44edf67..e3ed45e 100644 --- a/C4/Auth.pm +++ b/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, diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/header.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/header.inc index b6bc660..ea6d9a1 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/includes/header.inc +++ b/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 %]
  • -- 1.7.2.5