Changeset 451 for branches/htmlform/cgi-bin

Timestamp:

07/28/10 16:46:21 (14 years ago)

Author:

Kris Deugau

Message:

/branches/htmlform

Move Javascript from the header into its own file
Convert index page (master block summary) to template
Convert header to template, use template header in main.cgi
and search.cgi - going to leave admin.cgi out for now
Update HTML in header, index, footer to HTML 4.01 strict
See #3.

Location:

branches/htmlform/cgi-bin

Files:

• main.cgi (modified) (1 diff)
• search.cgi (modified) (1 diff)

branches/htmlform/cgi-bin/main.cgi

@@ -55 +55 @@
 $ENV{HTML_TEMPLATE_ROOT} = '/home/kdeugau/dev/ipdb/trunk/templates';
 
-# Headerize!  Make sure we replace the $$EXTRA0$$ bit as needed.
-printHeader('', ($IPDBacl{$authuser} =~ /a/ ?
-        '<td align=right><a href="/ip/cgi-bin/main.cgi?action=assign">Add new assignment</a>' : ''
-        ));
+my $header = HTML::Template->new(filename => "header.tmpl");
+$header->param(version => $IPDB::VERSION);
+$header->param(addperm => $IPDBacl{$authuser} =~ /a/);
+print "Content-type: text/html\n\n", $header->output;
 
 # Set up the CGI object...

branches/htmlform/cgi-bin/search.cgi

@@ -74 +74 @@
 }
 
-# Headerize!  Make sure we replace the $$EXTRA0$$ bit as needed.
-printHeader('', ($IPDBacl{$authuser} =~ /a/ ?
-        '<td align=right><a href="/ip/cgi-bin/main.cgi?action=assign">Add new assignment</a></td>' : ''
-        ));
+my $header = HTML::Template->new(filename => "header.tmpl");
+$header->param(version => $IPDB::VERSION);
+$header->param(addperm => $IPDBacl{$authuser} =~ /a/);
+print "Content-type: text/html\n\n", $header->output;
 
 if ($webvar{stype} eq 'q') {