- improved www/index.* files for comfort

www/export-all.adp

+<master>
+<property name="title">@page_title@</property>
+<property name="context">@context_bar@</property>
+
+
+<h1>@page_title@</h1>
+
+Exported all not-yet-exported invoices into 
+<b><%= [parameter::get_from_package_key -package_key "intranet-ubl" -parameter "UblExportPathUnix" -default "/web/projop/filestorage/ubl"] %></b>.

www/export-all.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 "Export All Pending Invoices"
+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
+# ------------------------------------------------------
+
+im_ubl::export_all_invoices
+
+

www/index.adp

@@ -12,20 +12,10 @@
 <li><a href="doc/">Implementation Status</a>
 </ul>
 
-<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>Actions</h1>
+<ul>
+<li><a href="export-all">Export all not-yet-exported Invoices</a>
+</ul>
 
 
 
@@ -34,17 +24,38 @@
 <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>
+    <th class="list-narrow">]po[</th>
+    <th class="list-narrow">UBL</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>
+	<td class="list-narrow"><a HREF="/intranet-invoices/view?invoice_id=@invoices.invoice_id@">@invoices.cost_name@</a></td>
+	<td class="list-narrow"><a HREF="@invoices.invoice_url@">UBL</a></td>
+  </tr>
+  </multiple>
+
+</table>
+
+
+<h1>Parameters</h1>
+
+<table class="list">
+  <tr class="list-header">
+    <th class="list-narrow">Parameter Name</th>
+    <th class="list-narrow">Value</th>
+    <th class="list-narrow">Description</th>
+  </tr>
+
+  <multiple name=params>
+    <if @params.rownum@ odd><tr class="list-odd"></if><else><tr class="list-even"></else>
+	<td class="list-narrow">@params.parameter_name@</td>
+	<td class="list-narrow">@params.default_value@</td>
+	<td class="list-narrow">@params.description_short@...</td>
   </tr>
   </multiple>
 
 </table>
+
+

www/index.tcl

@@ -20,6 +20,22 @@ if {!$user_is_admin_p} {
     return
 }
 
+# ------------------------------------------------------
+# The list of parameters
+# ------------------------------------------------------
+
+set param_query_sql "
+        select	p.*,
+		substring(p.description for 50) as description_short
+	from	apm_parameters p
+	where	p.package_key = 'intranet-ubl'
+	order by parameter_name
+"
+db_multirow -extend { url } params param_query $param_query_sql { 
+    set url ""
+}
+
+
 # ------------------------------------------------------
 # Show the trace
 # ------------------------------------------------------
@@ -30,14 +46,16 @@ set invoice_query_sql "
 	from	im_invoices i,
 		im_costs c
 	where	i.invoice_id = c.cost_id
+		and c.cost_type_id in ([im_cost_type_invoice])
 	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