Changeset 340 for trunk/preferences.cgi

Timestamp:

03/26/04 17:55:17 (5 years ago)

Author:

earle

Message:

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

Files:

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

trunk/preferences.cgi

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