Changeset 641 for trunk/cgi-bin


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/cgi-bin/admin.cgi

    r548 r641  
    9191
    9292my $header = HTML::Template->new(filename => "admin/header.tmpl");
     93$header->param(mainpage => 1) if $webvar{action} eq 'main';
     94print "Content-type: text/html\n\n".$header->output;
    9395
    9496my $page;
     
    101103# handle index page
    102104if ($webvar{action} eq 'main') {
    103   $header->param(mainpage => 1);
    104 
    105105  my $tlist = getTypeList($ip_dbh, 'a');
    106106  $tlist->[0]->{sel} = 1;
Note: See TracChangeset for help on using the changeset viewer.