Adding 'id' values to script-generated option lists (to work with <label> tag)

[koha_gimpoz] / changelanguage.pl

#!/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);