diff options
| author | matthew <matthew> | 2006-09-25 18:39:54 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2006-09-25 18:39:54 +0000 |
| commit | 4ac4fe8bdcdf6dedbae80d11b664a7d27025095b (patch) | |
| tree | e99801bfdb63c174718af563d1e4d622f19aeaf9 /perllib/Page.pm | |
| parent | b36133202bb92f7cdaa2f92f94a5242159ac3167 (diff) | |
Turns out everything needs relativediv now, so stick it in the header
and call it content.
Diffstat (limited to 'perllib/Page.pm')
| -rw-r--r-- | perllib/Page.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index 8575e4ebf..377d61dc3 100644 --- a/perllib/Page.pm +++ b/perllib/Page.pm @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: Page.pm,v 1.15 2006-09-25 18:12:56 matthew Exp $ +# $Id: Page.pm,v 1.16 2006-09-25 18:39:54 matthew Exp $ # package Page; @@ -73,9 +73,11 @@ sub header ($$%) { </head> <body> EOF - $html .= ($title) ? '<div id="header"><a href="/">' : '<h1 id="header">'; + my $home = !$title && $ENV{SCRIPT_NAME} eq '/index.cgi' && !$ENV{QUERY_STRING}; + $html .= $home ? '<h1 id="header">' : '<div id="header"><a href="/">'; $html .= 'Neighbourhood Fix-It'; - $html .= $title ? '</a></div>' : '</h1>'; + $html .= $home ? '</h1>' : '</a></div>'; + $html .= '<div id="content">'; return $html; } |