X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;ds=inline;f=templates%2Ffactory%2Ffrontpage;h=9cf356213d91d884b9a4d3b6ec761c4dd505a5f8;hb=77fb5cc34c9a87077dc65548f0d890b366e78c61;hp=3da9ea3fe4c5e41887bec2423d00dc6bd120a62d;hpb=0ad4ba7aa71b7dda17f0b07ccc9d8f0ad3424b82;p=maypole.git

diff --git a/templates/factory/frontpage b/templates/factory/frontpage
index 3da9ea3..9cf3562 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 align=center width=70%>
+[% FOR table = config.display_tables %]
+    <tr>
+        <td>
+            <a href="[%table%]/list">List by [%table %]</a>
+        </td>
+    </tr>
+[% END %]
+</table>
+<br/>
+[% INCLUDE footer %]