aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/Page.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perllib/Page.pm')
-rw-r--r--perllib/Page.pm16
1 files changed, 13 insertions, 3 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm
index 26a3b74df..a5e50951c 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.5 2006-09-19 23:45:33 matthew Exp $
+# $Id: Page.pm,v 1.6 2006-09-20 12:25:05 matthew Exp $
#
package Page;
@@ -72,7 +72,7 @@ sub header ($$%) {
</head>
<body>
<h1>Neighbourhood Fix-It</h1>
- <div id="content">
+ <div id="container"><div id="content">
EOF
return $html;
}
@@ -83,7 +83,17 @@ EOF
sub footer ($) {
my ($q) = @_;
return <<EOF;
-</div>
+</div></div>
+<h2 class="v">Navigation</h2>
+<ul id="navigation">
+<li><a href="/">Home</a>
+<li><a href="/about">About</a>
+<li><a href="/faq">FAQ</a>
+<li><a href="/contact">Contact</a>
+</ul>
+
+<p id="footer"></p>
+
</body>
</html>
EOF