Index: openacs-4/packages/acs-admin/www/apm/version-parameters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-parameters.tcl,v
diff -u -r1.8.4.1 -r1.8.4.2
--- openacs-4/packages/acs-admin/www/apm/version-parameters.tcl 27 Aug 2013 11:44:43 -0000 1.8.4.1
+++ openacs-4/packages/acs-admin/www/apm/version-parameters.tcl 29 Aug 2013 13:39:09 -0000 1.8.4.2
@@ -7,7 +7,7 @@
@creation-date 12 September 2000
@cvs-id $Id$
} {
- {orderby ""}
+ {orderby "parameter_name"}
{version_id:integer}
{section_name ""}
}
@@ -21,37 +21,66 @@
set dimensional_list [apm_parameter_section_slider $package_key]
-set table_def [list \
- [list parameter_name "Parameter"] \
- [list datatype "Type"] \
- [list scope "Scope"] \
- [list description "Description" {} {
[ad_quotehtml $description] | }]]
+set elements_list {
+ parameter_name {
+ label "Parameter"
+ orderby parameter_name
+ }
+ datatype {
+ label "Type"
+ orderby datatype
+ }
+ scope {
+ label "Scope"
+ orderby scope
+ }
+ description {
+ label "Description"
+ orderby description
+ }
+}
#DRB: sql_clauses must not contain RDBMS-specific query clauses.
set sql_clauses ""
if { ([info exists dimensional_list] && $dimensional_list ne "") } {
- lappend table_def [list section_name "Section:"]
append sql_clauses [ad_dimensional_sql $dimensional_list]
+ lappend elements_list section_name {
+ label "Section"
+ orderby section_name
+ }
}
-lappend table_def [list parameter_id "Actions" no_sort \
- {\[
- delete |
- edit\]
- | }]
+lappend elements_list actions {
+ label "Actions"
+ display_template { @parameters.actions;noquote@ }
+}
-append sql_clauses [ad_order_by_from_sort_spec $orderby $table_def]
+template::list::create -name parameters_list \
+ -multirow parameters \
+ -key parameter_name \
+ -no_data "No parameters registered in this section." \
+ -actions [list "Add new parameter" [export_vars -base parameter-add {version_id section_name}] "Add new parameter"] \
+ -elements $elements_list \
+ -filters {version_id {} section_name {}}
+set parent_package_keys [lrange [apm_one_package_inherit_order $package_key] 0 end-1]
+append sql_clauses " [template::list::orderby_clause -orderby -name parameters_list]"
+
+db_multirow -extend {actions} parameters parameter_table {} {
+ set actions "\[
+ delete |
+ edit\]"
+}
+
+
+
set page_title "Parameters"
set context [list [list "." "Package Manager"] [list [export_vars -base version-view { version_id }] "$pretty_name $version_name"] $page_title]
-append body "
-
-"
-
+set filter_html ""
if { $dimensional_list ne "" } {
- append body "[ad_dimensional $dimensional_list]"
+ set filter_html [ad_dimensional $dimensional_list]
}
# LARS hack
@@ -63,23 +92,7 @@
}
}
-set parent_package_keys [lrange [apm_one_package_inherit_order $package_key] 0 end-1]
-append body "[ad_table -Torderby $orderby \
- -bind [ad_tcl_vars_to_ns_set version_id package_key parent_package_keys] \
- -Textra_vars {version_id} \
- -Tmissing_text "No parameters registered in this section." \
- parameter_table "" $table_def]
-
Add a new parameter
-
-"
-
-
-
-
-
-
-