X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=templates%2Ffactory%2Ffrontpage;h=407fc6e6d502d2753266d1def2d3dbd6a3e5bed5;hb=6d0a3dde542a44c59284d60addc72503462fdbb4;hp=3da9ea3fe4c5e41887bec2423d00dc6bd120a62d;hpb=0ad4ba7aa71b7dda17f0b07ccc9d8f0ad3424b82;p=maypole.git

diff --git a/templates/factory/frontpage b/templates/factory/frontpage
index 3da9ea3..407fc6e 100644
--- a/templates/factory/frontpage
+++ b/templates/factory/frontpage
@@ -1,37 +1,25 @@
-[% INCLUDE header %]
-
-<h2> Main menu </h2>
+[%#
 
-<TABLE BORDER="0" ALIGN="center" WIDTH="70%">
-<TR>
-<TD ALIGN="left">
-<P>
-<A HREF="/user/list"><IMG SRC="/images/users.png"> Administer users</A>
-</P>
-</TD>
-<TD ALIGN="right">
-<P>
-<A HREF="/computer/list"><IMG SRC="/images/computer.png"> Administer
-computers</A>
-</P>
-</TD>
-</TR>
+=head1 frontpage
 
-<TR>
-<TD ALIGN="left">
-<P>
-<A HREF="/blog/"><IMG SRC="/images/blog.png"> House blog</A>
-</P>
-</TD>
-<TD ALIGN="right">
-<P>
-<A HREF="/phoneNumber/list"><IMG SRC="/images/phone.png"> Register
-phone calls</A>
-</P>
-</TD>
-</TR>
+This is the frontpage for your Maypole application.
+It shows a list of all tables it is allowed to display.
 
-</TABLE>
+=cut
 
-<BR>
-[% INCLUDE small_blog %]
+#%]
+[% INCLUDE header %]
+<h2>
+    [% config.application_name || "A poorly configured Maypole application" %]
+</h2>
+<table border="0" width="70%">
+[% FOR table = config.display_tables %]
+    <tr>
+        <td>
+            <a href="[%table%]/list">List by [%table %]</a>
+        </td>
+    </tr>
+[% END %]
+</table>
+<br/>
+[% INCLUDE footer %]