Changeset 336 for trunk/preferences.cgi

Timestamp:

03/26/04 17:25:47 (5 years ago)

Author:

earle

Message:

Added language code to questions in Build.PL and TT vars in scripts.

Files:

• trunk/preferences.cgi (modified) (4 diffs)

trunk/preferences.cgi

@@ -1 @@
-#!/usr/bin/perl -w
+#!/usr/local/bin/perl -w
 
 use strict;
 use CGI;
-
+use lib '/home/earle/lib';
 use Config::Tiny;
 use OpenGuides::CGI;
@@ -13 +13 @@
 my $cgi = CGI->new();
 my $action = $cgi->param('action') || '';
+my $language = $config->{_}->{default_language};
 
 if ( $action eq "set_preferences" ) {
@@ -43 +44 @@
         template => "preferences.tt",
         cookies  => $cookie,
-        vars     => { not_editable           => 1,
+        vars     => {
+                      language               => $language,
+                      not_editable           => 1,
                       username               => $username,
                       include_geocache_link  => $gc_link,
@@ -63 +66 @@
         template => "preferences.tt",
         vars     => { %prefs,
+                      language     => $language,
                       not_editable => 1,
                       show_form    => 1