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 -r1.23 -r1.24 --- openacs-4/packages/acs-admin/www/apm/index.tcl 29 Jul 2008 19:22:23 -0000 1.23 +++ openacs-4/packages/acs-admin/www/apm/index.tcl 29 Sep 2008 08:40:33 -0000 1.24 @@ -53,7 +53,7 @@ append body "
[ad_dimensional $dimensional_list]
" -set use_watches_p [expr ! [ad_parameter -package_id [ad_acs_kernel_id] PerformanceModeP request-processor 1]] +set use_watches_p [expr {![parameter::get -package_id [ad_acs_kernel_id] -parameter PerformanceModeP -default 1]}] set table_def { { package_key "Key" "" "$package_key" } @@ -83,7 +83,7 @@ lappend file_link_list "view files" if { $installed_p eq "t" && $enabled_p eq "t" } { - if { ! [ad_parameter -package_id [ad_acs_kernel_id] PerformanceModeP request-processor 1] } { + if {![parameter::get -package_id [ad_acs_kernel_id] -parameter PerformanceModeP -default 1]} { lappend file_link_list "watch all files" } Index: openacs-4/packages/acs-admin/www/apm/version-files.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-files.tcl,v diff -u -r1.15 -r1.16 --- openacs-4/packages/acs-admin/www/apm/version-files.tcl 10 Jan 2007 21:21:59 -0000 1.15 +++ openacs-4/packages/acs-admin/www/apm/version-files.tcl 29 Sep 2008 08:40:33 -0000 1.16 @@ -81,8 +81,8 @@ # This procs file is already being watched. append body " being watched " } else { - if {![ad_parameter -package_id [ad_acs_kernel_id] \ - PerformanceModeP request-processor 1]} { + if {![parameter::get -package_id [ad_acs_kernel_id] \ + -parameter PerformanceModeP -default 1]} { # Provide a link to watch the procs file. append body " watch " } else { Index: openacs-4/packages/acs-admin/www/apm/version-tag.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/Attic/version-tag.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/acs-admin/www/apm/version-tag.tcl 10 Jan 2007 21:21:59 -0000 1.4 +++ openacs-4/packages/acs-admin/www/apm/version-tag.tcl 29 Sep 2008 08:40:33 -0000 1.5 @@ -10,7 +10,7 @@ } db_1row apm_package_by_version_id { - select package_name, version_name, package_id + select pretty_name, version_name from apm_package_version_info where version_id = :version_id } @@ -36,14 +36,13 @@ # Path to the CVS executable -set cvs [ad_parameter CvsPath vc] +set cvs [parameter::get -package_id [ad_acs_kernel_id] -parameter CvsPath] -doc_body_append "[apm_header [list "version-view?version_id=$version_id" "$package_name $version_name"] [list "version-files?version_id=$version_id" "Files"] "Tag"] - -

We're going to write the CVS tag $version_tag into +doc_body_append [apm_header [list "version-view?version_id=$version_id" "$pretty_name $version_name"] [list "version-files?version_id=$version_id" "Files"] "Tag"] \ +"

We're going to write the CVS tag $version_tag into the repository for each file in this package. This will let you retrieve the exact set of revisions that make up -$package_name $version_name in the future. You can repeat +$pretty_name $version_name in the future. You can repeat this operation as often as you want, to tag new files for example.

Here goes: Index: openacs-4/packages/acs-admin/www/apm/version-tag.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/Attic/version-tag.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/acs-admin/www/apm/version-tag.xql 27 Apr 2001 01:41:12 -0000 1.1 +++ openacs-4/packages/acs-admin/www/apm/version-tag.xql 29 Sep 2008 08:40:33 -0000 1.2 @@ -1,16 +1,6 @@ - - - - select package_name, version_name, package_id - from apm_package_version_info where version_id = :version_id - - - - - Index: openacs-4/packages/acs-admin/www/users/user-add-2.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-add-2.adp,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-admin/www/users/user-add-2.adp 29 Jul 2008 22:04:14 -0000 1.6 +++ openacs-4/packages/acs-admin/www/users/user-add-2.adp 29 Sep 2008 08:40:34 -0000 1.7 @@ -18,7 +18,7 @@ @first_names@ @last_name@, You have been added as a user to @system_name@ -at @system_url@ +at @system_url@. Login information: Email: @email@ Index: openacs-4/packages/acs-admin/www/users/user-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-add-2.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/packages/acs-admin/www/users/user-add-2.tcl 10 Jan 2007 21:22:00 -0000 1.9 +++ openacs-4/packages/acs-admin/www/users/user-add-2.tcl 29 Sep 2008 08:40:34 -0000 1.10 @@ -36,6 +36,6 @@ set context [list [list "./" "Users"] "Notify added user"] set system_name [ad_system_name] set export_vars [export_form_vars email first_names last_name user_id] -set system_url [ad_parameter -package_id [ad_acs_kernel_id] SystemURL ""]. +set system_url [parameter::get -package_id [ad_acs_kernel_id] -parameter SystemURL -default ""] ad_return_template Index: openacs-4/packages/acs-admin/www/users/user-batch-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-batch-add.adp,v diff -u -r1.7 -r1.8 --- openacs-4/packages/acs-admin/www/users/user-batch-add.adp 29 Jul 2008 22:04:14 -0000 1.7 +++ openacs-4/packages/acs-admin/www/users/user-batch-add.adp 29 Sep 2008 08:40:34 -0000 1.8 @@ -15,7 +15,7 @@ Dear <first_names> <last_name>, You have been added as a user to @system_name@ -at @system_url@ +at @system_url@. Login information: Email: <email> Index: openacs-4/packages/acs-admin/www/users/user-batch-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-batch-add.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-admin/www/users/user-batch-add.tcl 1 Mar 2005 00:01:21 -0000 1.3 +++ openacs-4/packages/acs-admin/www/users/user-batch-add.tcl 29 Sep 2008 08:40:34 -0000 1.4 @@ -18,6 +18,6 @@ set context [list [list "./" "Users"] "Notify added user"] set system_name [ad_system_name] set export_vars [export_form_vars email first_names last_name user_id] -set system_url [ad_parameter -package_id [ad_acs_kernel_id] SystemURL ""]. +set system_url [parameter::get -package_id [ad_acs_kernel_id] -parameter SystemURL -default ""] ad_return_template Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v diff -u -r1.25 -r1.26 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 29 Jul 2008 19:22:23 -0000 1.25 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 29 Sep 2008 08:42:06 -0000 1.26 @@ -621,7 +621,10 @@ append out [api_format_common_elements doc_elements] if { $source_p } { - if {[ad_parameter FancySourceFormattingP "" 1]} { + if {[parameter::get_from_package_key \ + -package_key acs-api-browser \ + -parameter FancySourceFormattingP \ + -default 1]} { append out "

Source code:
[api_tcl_to_html $proc_name]

\n"