Koha/changelanguage.pl

10 lines
172 B
Perl
Executable file

#!/usr/bin/perl
use C4::Output;
use CGI;
my $query=new CGI;
my $language=$query->param('language');
my $url=$query->referer();
setlanguagecookie($query,$language,$url);