| Request Start Time: | [clock format [lindex $property(start) 0] -format "%Y-%m-%d %H:%M:%S"]\n"
} else {
append body "The information for this request is gone - either the server has been restarted, or
-the request is more than [ad_parameter DeveloperSupportLifetime "" 900] seconds old.
+the request is more than [parameter::get -parameter DeveloperSupportLifetime -default 900] seconds old.
[ad_admin_footer]"
return
}
Index: openacs-4/packages/categories/tcl/categories-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/categories-procs.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/categories/tcl/categories-procs.tcl 8 Nov 2008 17:05:38 -0000 1.26
+++ openacs-4/packages/categories/tcl/categories-procs.tcl 21 Dec 2008 18:05:35 -0000 1.27
@@ -52,7 +52,7 @@
db_transaction {
set category_id [db_exec_plsql insert_category ""]
set translations [list $locale $name]
- set default_locale [ad_parameter DefaultLocale acs-lang "en_US"]
+ set default_locale [parameter::get -parameter DefaultLocale -default en_US]
if {$locale != $default_locale} {
lappend translations $default_locale $name
db_exec_plsql insert_default_category ""
@@ -328,7 +328,7 @@
}
# Resort to en_US
- if { ![catch { set name $cat_lang([ad_parameter DefaultLocale acs-lang "en_US"]) }] } {
+ if { ![catch { set name $cat_lang([parameter::get -parameter DefaultLocale -default en_US]) }] } {
return $name
}
Index: openacs-4/packages/categories/tcl/category-trees-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl 8 Nov 2008 17:05:38 -0000 1.24
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl 21 Dec 2008 18:05:35 -0000 1.25
@@ -154,7 +154,7 @@
db_transaction {
set tree_id [db_exec_plsql insert_tree ""]
- set default_locale [ad_parameter DefaultLocale acs-lang "en_US"]
+ set default_locale [parameter::get -parameter DefaultLocale -default en_US]
if {$locale != $default_locale} {
db_exec_plsql insert_default_tree ""
}
@@ -469,7 +469,7 @@
# exact match: found name for this locale
return $names
}
- if {![catch {set names $tree_lang([ad_parameter DefaultLocale acs-lang "en_US"])}]} {
+ if {![catch {set names $tree_lang([parameter::get -parameter DefaultLocale -default en_US])}]} {
# default locale found
return $names
}
Index: openacs-4/packages/categories/tcl/tagcloud-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/tagcloud-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/categories/tcl/tagcloud-procs.tcl 8 Nov 2008 17:05:38 -0000 1.3
+++ openacs-4/packages/categories/tcl/tagcloud-procs.tcl 21 Dec 2008 18:05:35 -0000 1.4
@@ -94,7 +94,7 @@
set user_locale [ad_conn locale]
set user_id [ad_conn user_id]
- set default_locale [ad_parameter DefaultLocale acs-lang "en_US"]
+ set default_locale [parameter::get -parameter DefaultLocale -default en_US]
ns_log Warning "def loc $default_locale"
# this whole locale thing isn't handled well.
Index: openacs-4/packages/categories/www/cadmin/category-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-form.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/categories/www/cadmin/category-form.tcl 6 Nov 2008 15:50:44 -0000 1.8
+++ openacs-4/packages/categories/www/cadmin/category-form.tcl 21 Dec 2008 18:05:35 -0000 1.9
@@ -44,7 +44,7 @@
set description ""
} -edit_request {
if {![db_0or1row check_translation_existance ""]} {
- set default_locale [ad_parameter DefaultLocale acs-lang "en_US"]
+ set default_locale [parameter::get -parameter DefaultLocale -default en_US]
db_1row get_default_translation ""
}
} -on_submit {
Index: openacs-4/packages/categories/www/cadmin/master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/master.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/categories/www/cadmin/master.tcl 6 Nov 2008 15:56:13 -0000 1.9
+++ openacs-4/packages/categories/www/cadmin/master.tcl 21 Dec 2008 18:05:35 -0000 1.10
@@ -7,7 +7,7 @@
}
if {![exists_and_not_null locale]} {
- #set locale [ad_parameter DefaultLocale acs-lang "en_US"]
+ #set locale [parameter::get -parameter DefaultLocale -default en_US]
set locale [ad_conn locale]
}
Index: openacs-4/packages/categories/www/cadmin/synonym-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/synonym-form.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/categories/www/cadmin/synonym-form.tcl 7 Nov 2008 16:51:00 -0000 1.4
+++ openacs-4/packages/categories/www/cadmin/synonym-form.tcl 21 Dec 2008 18:05:35 -0000 1.5
@@ -47,7 +47,7 @@
if {![empty_string_p [ad_conn locale]]} {
set language [ad_conn locale]
} else {
- set language [ad_parameter DefaultLocale acs-lang "en_US"]
+ set language [parameter::get -parameter DefaultLocale -default en_US]
}
} -edit_request {
db_1row get_synonym ""
|
|---|