Index: cgi-style.pl
===================================================================
RCS file: /home/ncvs/www/en/cgi/cgi-style.pl,v
retrieving revision 1.22
diff -u -r1.22 cgi-style.pl
--- cgi-style.pl 17 Sep 2005 15:48:23 -0000 1.22
+++ cgi-style.pl 24 Oct 2005 14:03:26 -0000
@@ -25,50 +25,167 @@
# This can be set to either a string containing an inline CSS stylesheet
# or to a element that references an external CSS stylesheet, to
# make local modifications to the style of a CGI script's output.
-$t_style = "";
+$t_style = ""; # Don't allow script to override completely, just
+ # let the script's setting cascade with the master.
-$i_topbar = "
-";
+$i_topbar = qq`
+
+`;
+
+#XXX does anyone use this? I don't know what it should be in the new style.
if (!defined($hsty_home)) {
$hsty_home = "";
}
sub html_header {
- local ($title) = @_;
+ local ($title, $xhtml) = @_;
- return "Content-type: text/html\n\n" .
- '' .
- "\n\n\n$title\n" .
- "\n" .
- "\n$t_style\n\n\n" .
- "$i_topbar\n