Changeset 340 for trunk/preferences.cgi


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

Make shebang conform, remove dodgy 'use lib', extract language to OpenGuides::Template

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/preferences.cgi

    r339 r340  
    1 #!/usr/local/bin/perl -w
     1#!/usr/local/bin/perl
    22
     3use warnings;
    34use strict;
     5
    46use CGI;
    5 use lib '/home/earle/lib';
    67use Config::Tiny;
    78use OpenGuides::CGI;
     
    1314my $cgi = CGI->new();
    1415my $action = $cgi->param('action') || '';
    15 my $language = $config->{_}->{default_language};
    1616
    1717if ( $action eq "set_preferences" ) {
     
    4545        cookies  => $cookie,
    4646        vars     => {
    47                       language               => $language,
    4847                      not_editable           => 1,
    4948                      username               => $username,
     
    6665        template => "preferences.tt",
    6766        vars     => { %prefs,
    68                       language     => $language,
    6967                      not_editable => 1,
    7068                      show_form    => 1
Note: See TracChangeset for help on using the changeset viewer.