changelanguage.pl

   1 #!/usr/bin/perl
   2
   3 use C4::Output;
   4 use CGI;
   5
   6 my $query=new CGI;
   7 my $language=$query->param('language');
   8 my $url=$query->referer();
   9
  10 setlanguagecookie($query,$language,$url);