Changeset 451 for branches/htmlform/cgi-bin/search.cgi
- Timestamp:
 - 07/28/10 16:46:21 (15 years ago)
 - File:
 - 
      
- 1 edited
 
- 
          
  branches/htmlform/cgi-bin/search.cgi (modified) (1 diff)
 
 
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.
  ![[ DeepNet IP Database ]](/images/ipdb-logo.png)