- added a homepage

www/index.adp

+<master>
+<property name="title">@page_title@</property>
+<property name="context">@context_bar@</property>
+
+
+<h1>Global Parameters</h1>
+
+<table class="list">
+  <tr class="list-header">
+    <th class="list-narrow"><%= [lang::message::lookup "" intranet-core.Name "Name"] %></th>
+    <th class="list-narrow"><%= [lang::message::lookup "" intranet-core.Value "Value"] %></th>
+    <th class="list-narrow"><%= [lang::message::lookup "" intranet-core.Comment "Comment"] %></th>
+  </tr>
+  <tr>
+    <td class="list-narrow">User Exit Path</td>
+    <td class="list-narrow">Where are the User Exits located?</td>
+  </tr>
+</table>
+
+
+
+
+<h1>Invoice Samples</h1>
+
+<table class="list">
+  <tr class="list-header">
+    <th class="list-narrow">#intranet-core.Id#</th>
+    <th class="list-narrow">#intranet-core.Date#</th>
+    <th class="list-narrow"><%= [lang::message::lookup "" intranet-core.Level "Level"] %></th>
+    <th class="list-narrow"><%= [lang::message::lookup "" intranet-core.Key "Key"] %></th>
+    <th class="list-narrow"><%= [lang::message::lookup "" intranet-core.Message "Message"] %></th>
+  </tr>
+
+  <multiple name=invoices>
+    <if @invoices.rownum@ odd><tr class="list-odd"></if><else><tr class="list-even"></else>
+	<td class="list-narrow">@invoices.invoice_id@</td>
+	<td class="list-narrow"><a HREF="@invoices.invoice_url@">@invoices.cost_name@</a></td>
+  </tr>
+  </multiple>
+
+</table>

www/index.tcl

+ad_page_contract {
+    @author Frank Bergmann frank.bergmann@project-open.com
+    @creation-date 2007-12-10
+    @cvs-id $Id$
+} {
+    
+}
+
+# ******************************************************
+# Default & Security
+# ******************************************************
+
+set page_title "Universal Business Language"
+set context_bar [im_context_bar $page_title]
+
+set user_id [ad_maybe_redirect_for_registration]
+set user_is_admin_p [im_is_user_site_wide_or_intranet_admin $user_id]
+if {!$user_is_admin_p} {
+    ad_return_complaint 1 "You have insufficient privileges to use this page"
+    return
+}
+
+# ------------------------------------------------------
+# Show the trace
+# ------------------------------------------------------
+
+set invoice_query_sql "
+        select	i.*,
+		c.*
+	from	im_invoices i,
+		im_costs c
+	where	i.invoice_id = c.cost_id
+	order by i.invoice_id DESC
+	LIMIT 20
+"
+
+db_multirow -extend { invoice_url } invoices invoice_query $invoice_query_sql {
+    set invoice_url [export_vars -base "document.xml" { invoice_id }]
+}
+
+ad_return_template
+
+
+