Changeset 451 for branches/htmlform/cgi-bin/search.cgi
- Timestamp:
- 07/28/10 16:46:21 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/htmlform/cgi-bin/search.cgi
r449 r451 74 74 } 75 75 76 # Headerize! Make sure we replace the $$EXTRA0$$ bit as needed. 77 printHeader('', ($IPDBacl{$authuser} =~ /a/ ? 78 '<td align=right><a href="/ip/cgi-bin/main.cgi?action=assign">Add new assignment</a></td>' : '' 79 ));76 my $header = HTML::Template->new(filename => "header.tmpl"); 77 $header->param(version => $IPDB::VERSION); 78 $header->param(addperm => $IPDBacl{$authuser} =~ /a/); 79 print "Content-type: text/html\n\n", $header->output; 80 80 81 81 if ($webvar{stype} eq 'q') {
Note:
See TracChangeset
for help on using the changeset viewer.