From e70385696a63aef04938fca71826ee6719fc8ff8 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Fri, 16 Jul 2004 00:39:15 +0000
Subject: [PATCH] Little script that takes a language as an input, and sets a
 cookie

---
 changelanguage.pl | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100755 changelanguage.pl

diff --git a/changelanguage.pl b/changelanguage.pl
new file mode 100755
index 0000000000..ad616a71b7
--- /dev/null
+++ 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);
-- 
2.39.5