Changeset 641 for trunk/cgi-bin/admin.cgi

Timestamp:

10/17/14 16:49:15 (10 years ago)

Author:

Kris Deugau

Message:

/trunk

Commit 13/mumble for work done intermittently over the past ~year.

• Tweak header output in admin.cgi

File:

• trunk/cgi-bin/admin.cgi (modified) (2 diffs)

trunk/cgi-bin/admin.cgi

@@ -91 +91 @@
 
 my $header = HTML::Template->new(filename => "admin/header.tmpl");
+$header->param(mainpage => 1) if $webvar{action} eq 'main';
+print "Content-type: text/html\n\n".$header->output;
 
 my $page;
@@ -101 +103 @@
 # handle index page
 if ($webvar{action} eq 'main') {
-  $header->param(mainpage => 1);
-
   my $tlist = getTypeList($ip_dbh, 'a');
   $tlist->[0]->{sel} = 1;