Bug 18822: Check if we have MARC::Record and convert if not when using ES

[koha.git] / changelanguage.pl

diff --git a/changelanguage.pl b/changelanguage.pl
index 9a72f8d..3463c60 100755 (executable)
--- a/changelanguage.pl
+++ b/changelanguage.pl
@@ -15,8 +15,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use C4::Templates;
 use CGI qw ( -utf8 );
@@ -25,5 +24,7 @@ my $query    = new CGI;
 my $language = $query->param('language');
 my $url      = $query->referer();
 
-#warn "Language : $query // $language // $url";
+$url =~ s|(.)language=[\w-]*&?|$1|;
+$url =~ s|(&\|\?)$||; # Remove extraneous ? or &
+
 C4::Templates::setlanguagecookie( $query, $language, $url );