- NAV export now working

www/export-all.adp

@@ -5,5 +5,4 @@
 
 <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>.
+Exported <b>@num_invoices_exported@</b> invoices invoices into <b>@export_path@</b>.

www/export-all.tcl

@@ -24,6 +24,6 @@ if {!$user_is_admin_p} {
 # Show the trace
 # ------------------------------------------------------
 
-im_ubl::export_all_invoices
-
+set num_invoices_exported [im_ubl::export_all_invoices]
+set export_path [parameter::get_from_package_key -package_key "intranet-ubl" -parameter "UblExportPathUnix" -default "/web/projop/filestorage/ubl"]
 

www/index.adp

@@ -51,7 +51,7 @@
   <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.attr_value@</td>
 	<td class="list-narrow">@params.description_short@...</td>
   </tr>
   </multiple>

www/index.tcl

@@ -26,8 +26,10 @@ if {!$user_is_admin_p} {
 
 set param_query_sql "
         select	p.*,
+		v.*,
 		substring(p.description for 50) as description_short
 	from	apm_parameters p
+		LEFT OUTER JOIN apm_parameter_values v ON (p.parameter_id = v.parameter_id)
 	where	p.package_key = 'intranet-ubl'
 	order by parameter_name
 "