[Koha-cvs] CVS: koha changelanguage.pl,NONE,1.1

[Chris Cormack]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31814

Added Files:
        changelanguage.pl 
Log Message:
Little script that takes a language as an input, and sets a cookie


--- NEW 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);