Changeset 451 for branches/htmlform/cgi-bin/main.cgi
- Timestamp:
- 07/28/10 16:46:21 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/htmlform/cgi-bin/main.cgi
r450 r451 55 55 $ENV{HTML_TEMPLATE_ROOT} = '/home/kdeugau/dev/ipdb/trunk/templates'; 56 56 57 # Headerize! Make sure we replace the $$EXTRA0$$ bit as needed. 58 printHeader('', ($IPDBacl{$authuser} =~ /a/ ? 59 '<td align=right><a href="/ip/cgi-bin/main.cgi?action=assign">Add new assignment</a>' : '' 60 ));57 my $header = HTML::Template->new(filename => "header.tmpl"); 58 $header->param(version => $IPDB::VERSION); 59 $header->param(addperm => $IPDBacl{$authuser} =~ /a/); 60 print "Content-type: text/html\n\n", $header->output; 61 61 62 62 # Set up the CGI object...
Note:
See TracChangeset
for help on using the changeset viewer.