Little script that takes a language as an input, and sets a cookie

Koha-Community · Jul 16, 2004 · e703856 · e703856
1 parent 3cd76ee
commit e703856
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/changelanguage.pl b/changelanguage.pl
@@ -0,0 +1,10 @@
+#!/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);