Index: openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/Attic/parameter-set-2.tcl,v diff -u -N --- openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set-2.tcl 2 Feb 2018 00:05:53 -0000 1.9 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,37 +0,0 @@ -ad_page_contract { - - Set parameters on a package instance. - - @author Bryan Quinn (bquinn@arsdigita.com) - @creation-date 12 September 2000 - @cvs-id $Id: parameter-set-2.tcl,v 1.9 2018/02/02 00:05:53 gustafn Exp $ - -} { - package_key:token,notnull - package_id:naturalnum,notnull - instance_name:notnull - {return_url:localurl "."} - params:array -} - -permission::require_permission -object_id $package_id -privilege admin - -if { [catch { - db_foreach apm_parameters_set {} { - if {[info exists params($parameter_id)]} { - parameter::set_value -value $params($parameter_id) -package_id $package_id -parameter $parameter_name - } - } -} errmsg] } { - ad_return_error "Database Error" "The parameters could not be set. The database error was:

-

[ns_quotehtml $errmsg]
." -} else { - ad_returnredirect $return_url -} -ad_script_abort - -# Local variables: -# mode: tcl -# tcl-indent-level: 4 -# indent-tabs-mode: nil -# End: Index: openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set-2.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/Attic/parameter-set-2.xql,v diff -u -N --- openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set-2.xql 21 Jun 2002 19:08:33 -0000 1.2 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,14 +0,0 @@ - - - - - - - select parameter_id, - parameter_name - from apm_parameters - where package_key = :package_key - - - - Index: openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/Attic/parameter-set-oracle.xql,v diff -u -N --- openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set-oracle.xql 22 Nov 2017 15:05:31 -0000 1.6 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,15 +0,0 @@ - - - - oracle8.1.6 - - - - select package_key, - acs_object.name(package_id) instance_name - from apm_packages - where package_id = :package_id - - - - Index: openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/Attic/parameter-set-postgresql.xql,v diff -u -N --- openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set-postgresql.xql 22 Nov 2017 15:05:31 -0000 1.8 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,15 +0,0 @@ - - - - postgresql7.1 - - - - select package_key, - acs_object__name(package_id) as instance_name - from apm_packages - where package_id = :package_id - - - - Index: openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/Attic/parameter-set.adp,v diff -u -N --- openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set.adp 3 Jul 2015 10:25:48 -0000 1.3 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,5 +0,0 @@ - -@title;literal@ -@context;literal@ - -@body;noquote@ 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 --- openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set.tcl 7 Apr 2018 17:48:39 -0000 1.15 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,106 +0,0 @@ -ad_page_contract { - - Set parameters on a package instance. - - @author Bryan Quinn (bquinn@arsdigita.com) - @creation-date 12 September 2000 - @cvs-id $Id: parameter-set.tcl,v 1.15 2018/04/07 17:48:39 gustafn Exp $ - -} { - package_id:naturalnum,notnull - {orderby:token ""} - {return_url:localurl "."} -} - -permission::require_permission -object_id $package_id -privilege admin - -db_1row package_info {} - -set table_def [list \ - [list parameter_name "Parameter Name"] \ - [list description "Description"]] - -set table_sql "select p.parameter_id, p.parameter_name, p.package_key, nvl(p.description, 'No Description') description, - nvl(v.attr_value, 'No Value') attr_value, nvl(p.section_name, 'No Section Name') section_name - from apm_parameters p, (select parameter_id, attr_value - from apm_parameter_values v - where v.package_id = :package_id) v - where p.parameter_id = v.parameter_id(+) - and p.package_key = (select package_key from apm_packages where package_id = :package_id)" - -set dimensional_list [apm_parameter_section_slider $package_key] -set additional_sql "" - -if {$dimensional_list ne "" } { - lappend table_def [list section_name "Section:"] - append additional_sql [ad_dimensional_sql $dimensional_list] - ns_log Notice [ad_dimensional_sql $dimensional_list] -} - -# DRB: This should be rewritten to optionally allow for the definition of possible parameter values, -# with a drop-down select widget used rather than a text input widget. - -# TIL: only show the from-file-parameter-warning when there are -# actually parameters from a file in this listing. -set display_warning_p 0 - -lappend table_def [list attr_value "Value" no_sort \ - { - - [if { [ad_parameter_from_file $parameter_name [uplevel set package_key]] ne "" } { uplevel set display_warning_p 1 } ; ad_parameter_from_file $parameter_name [uplevel set package_key]] - }] - -append additional_sql [ad_order_by_from_sort_spec $orderby $table_def] - -set title "Parameters for $instance_name" -set context [list [list "index" "Site Map"] "$instance_name Parameters"] - -set body [subst {

Parameters for $instance_name

-
-}] - -if { $dimensional_list ne "" } { - append body "[ad_dimensional $dimensional_list]

" -} - -append table_sql $additional_sql - -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." \ - -Textra_rows " - - -" parameter_table $table_sql $table_def] - - -if { $display_warning_p } { - append body { - Note text in red below the parameter entry fields indicates the value of this - parameter is being overridden by an entry in the OpenACS parameter file. The - use of the parameter file is discouraged but some sites need it to provide - instance-specific values for parameters independent of the apm_parameter - tables. -

- } -} - -append body [subst { -
-
- [export_vars -form {package_key package_id instance_name return_url}] - $table -
- -}] - - -# Local variables: -# mode: tcl -# tcl-indent-level: 4 -# indent-tabs-mode: nil -# End: Index: openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/Attic/parameter-set.xql,v diff -u -N --- openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set.xql 22 Nov 2017 15:05:31 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,23 +0,0 @@ - - - - - - select p.parameter_id, - p.parameter_name, - p.package_key, - coalesce(p.description, 'No Description') as description, - v.attr_value, - coalesce(p.section_name, 'No Section Name') as section_name - from apm_parameters p left outer join - (select v.parameter_id, - v.attr_value - from apm_parameter_values v - where v.package_id = :package_id) v - on p.parameter_id = v.parameter_id - where p.package_key = (select package_key from apm_packages where package_id = :package_id) - $additional_sql - - - -