Index: openacs-4/packages/acs-admin/www/apm/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/index-oracle.xql,v
diff -u -N -r1.6 -r1.6.22.1
--- openacs-4/packages/acs-admin/www/apm/index-oracle.xql 10 Mar 2003 12:01:54 -0000 1.6
+++ openacs-4/packages/acs-admin/www/apm/index-oracle.xql 29 Aug 2013 13:39:09 -0000 1.6.22.1
@@ -26,8 +26,8 @@
end as tarball_p
from apm_package_versions v, apm_package_types t
where t.package_key = v.package_key
- [ad_dimensional_sql $dimensional_list where and]
- [ad_order_by_from_sort_spec $orderby $table_def]
+ $filter_where_clause
+ [template::list::orderby_clause -name package_list -orderby]
Index: openacs-4/packages/acs-admin/www/apm/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/index-postgresql.xql,v
diff -u -N -r1.6 -r1.6.22.1
--- openacs-4/packages/acs-admin/www/apm/index-postgresql.xql 10 Mar 2003 12:01:54 -0000 1.6
+++ openacs-4/packages/acs-admin/www/apm/index-postgresql.xql 29 Aug 2013 13:39:09 -0000 1.6.22.1
@@ -19,9 +19,8 @@
end as tarball_p
from apm_package_versions v, apm_package_types t
where t.package_key = v.package_key
- [ad_dimensional_sql $dimensional_list where and]
- [ad_order_by_from_sort_spec $orderby $table_def]
-
+ $filter_where_clause
+ [template::list::orderby_clause -orderby -name package_list]
Index: openacs-4/packages/acs-admin/www/apm/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/index.adp,v
diff -u -N -r1.1 -r1.1.22.1
--- openacs-4/packages/acs-admin/www/apm/index.adp 17 Sep 2003 11:08:09 -0000 1.1
+++ openacs-4/packages/acs-admin/www/apm/index.adp 29 Aug 2013 13:39:09 -0000 1.1.22.1
@@ -2,4 +2,42 @@
@dimensional_list;noquote@ | +
@reload_filter;noquote@ | +
+A package is enabled if it is scheduled to run at server startup +and is deliverable by the request processor. + +Index: openacs-4/packages/acs-admin/www/apm/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/index.tcl,v diff -u -N -r1.24 -r1.24.8.1 --- openacs-4/packages/acs-admin/www/apm/index.tcl 29 Sep 2008 08:40:33 -0000 1.24 +++ openacs-4/packages/acs-admin/www/apm/index.tcl 29 Aug 2013 13:39:09 -0000 1.24.8.1 @@ -15,7 +15,7 @@ set page_title "Package Manager" set context [list [list "../developer" "Developer's Administration"] $page_title] -set user_id [ad_get_user_id] +set user_id [ad_conn user_id] # Determine the user's email address. If its not registered, put in a default. set my_email [db_string email_by_user_id { @@ -31,83 +31,89 @@ } } { - owned_by "Owned by:" everyone { { me "Me" {where "[db_map everyone]"} } { everyone "Everyone" {where "1 = 1"} } } } { status "Status:" latest { - { - latest "Latest" {where "[db_map latest]" } - } - { all "All" {where "1 = 1"} } + {latest "Latest" {where "[db_map latest]" } } + {all "All" {where "1 = 1"} } } } } # "latest" means that a version is installed or enabled, or there is no more latest version # which is installed or enabled. Basically, any relevant package on the system. +set filter_where_clause [ad_dimensional_sql $dimensional_list where and] +set dimensional_list [ad_dimensional $dimensional_list] -set missing_text "No packages match criteria." - -append body "If a Tcl library file (*-procs.tcl) or query file (*.xql) is being +watched, the request processor monitors it, reloading it into running interpreters +whenever it is changed. This is useful during development +(so you don't have to restart the server for your changes to take +effect). To watch a file, click its package key above, click Manage file +information on the next screen, and click watch next to +the file's name on the following screen. +
[ad_dimensional $dimensional_list] |
$reload_filter | -
-A package is enabled if it is scheduled to run at server startup -and is deliverable by the request processor. - --" Index: openacs-4/packages/acs-admin/www/apm/version-parameters.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-parameters.adp,v diff -u -N -r1.2 -r1.2.22.1 --- openacs-4/packages/acs-admin/www/apm/version-parameters.adp 17 Sep 2003 22:34:45 -0000 1.2 +++ openacs-4/packages/acs-admin/www/apm/version-parameters.adp 29 Aug 2013 13:39:09 -0000 1.2.22.1 @@ -2,4 +2,9 @@If a Tcl library file (*-procs.tcl) or query file (*.xql) is being -watched, the request processor monitors it, reloading it into running interpreters -whenever it is changed. This is useful during development -(so you don't have to restart the server for your changes to take -effect). To watch a file, click its package key above, click Manage file -information on the next screen, and click watch next to -the file's name on the following screen. -
+@filter_html;noquote@ + ++ 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 -N -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" {} {+
-" - +set filter_html "" if { $dimensional_list ne "" } { - append body "[ad_dimensional $dimensional_list]-" - - - - - - - Index: openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/Attic/parameter-set.tcl,v diff -u -N -r1.9.10.1 -r1.9.10.2 --- openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set.tcl 27 Aug 2013 12:20:37 -0000 1.9.10.1 +++ openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set.tcl 29 Aug 2013 13:39:09 -0000 1.9.10.2 @@ -66,6 +66,8 @@ ns_log Notice "table_sql = $table_sql" +#vguerra: This is the only call to ad_table within core, but +#this page is not linked from anywhere anymore, probably we remove it later on. set table [ad_table -Torderby $orderby \ -bind [ad_tcl_vars_to_ns_set package_id] \ -Tmissing_text "No parameters registered in this section." \" + 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 -