Changeset 336 for trunk/preferences.cgi


Ignore:
Timestamp:
Mar 26, 2004, 5:25:47 PM (18 years ago)
Author:
Earle Martin
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/preferences.cgi

    r335 r336  
    1 #!/usr/bin/perl -w
     1#!/usr/local/bin/perl -w
    22
    33use strict;
    44use CGI;
    5 
     5use lib '/home/earle/lib';
    66use Config::Tiny;
    77use OpenGuides::CGI;
     
    1313my $cgi = CGI->new();
    1414my $action = $cgi->param('action') || '';
     15my $language = $config->{_}->{default_language};
    1516
    1617if ( $action eq "set_preferences" ) {
     
    4344        template => "preferences.tt",
    4445        cookies  => $cookie,
    45         vars     => { not_editable           => 1,
     46        vars     => {
     47                      language               => $language,
     48                      not_editable           => 1,
    4649                      username               => $username,
    4750                      include_geocache_link  => $gc_link,
     
    6366        template => "preferences.tt",
    6467        vars     => { %prefs,
     68                      language     => $language,
    6569                      not_editable => 1,
    6670                      show_form    => 1
Note: See TracChangeset for help on using the changeset viewer.