Index: openacs-4/packages/acs-bootstrap-installer/tcl/20-db-bootstrap-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/20-db-bootstrap-procs.tcl,v diff -u -r1.8.10.1 -r1.8.10.2 --- openacs-4/packages/acs-bootstrap-installer/tcl/20-db-bootstrap-procs.tcl 27 Aug 2013 11:01:48 -0000 1.8.10.1 +++ openacs-4/packages/acs-bootstrap-installer/tcl/20-db-bootstrap-procs.tcl 5 Dec 2013 11:05:27 -0000 1.8.10.2 @@ -1,5 +1,5 @@ -ad_proc -private db_available_pools {{} dbn } { +ad_proc -private db_available_pools {dbn} { Returns a list of the available pools for the given database name.
@@ -20,8 +20,7 @@
return [nsv_get {db_available_pools} $dbn]
}
-ad_proc -private db_pool_to_dbn_init {{
-}} {
+ad_proc -private db_pool_to_dbn_init {} {
Simply initializes the db_pool_to_dbn
nsv, which is
used by "db_driverkey -handle
".
Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.94.2.12 -r1.94.2.13
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl 1 Nov 2013 22:03:28 -0000 1.94.2.12
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl 5 Dec 2013 11:11:17 -0000 1.94.2.13
@@ -415,8 +415,10 @@
return $changed_files
}
-ad_proc -private apm_mark_version_for_reload { version_id { changed_files_var "" } } {
-
+ad_proc -private apm_mark_version_for_reload {
+ version_id
+ { changed_files_var "" }
+} {
Examines all tcl_procs files in package version $version_id; if any have
changed since they were loaded, marks (in the apm_reload array) that
they must be reloaded by each Tcl interpreter (using the
@@ -976,11 +978,16 @@
}
ad_proc -public apm_parameter_update {
- {
- -callback apm_dummy_callback
- }
- parameter_id package_key parameter_name description default_value datatype \
- {section_name ""} {min_n_values 1} {max_n_values 1}
+ {-callback apm_dummy_callback}
+ parameter_id
+ package_key
+ parameter_name
+ description
+ default_value
+ datatype
+ {section_name ""}
+ {min_n_values 1}
+ {max_n_values 1}
} {
@return The parameter id that has been updated.
} {
@@ -1010,12 +1017,17 @@
}
ad_proc -public apm_parameter_register {
- {
- -callback apm_dummy_callback
- -parameter_id ""
- -scope instance
- }
- parameter_name description package_key default_value datatype {section_name ""} {min_n_values 1} {max_n_values 1}
+ {-callback apm_dummy_callback}
+ {-parameter_id ""}
+ {-scope instance}
+ parameter_name
+ description
+ package_key
+ default_value
+ datatype
+ {section_name ""}
+ {min_n_values 1}
+ {max_n_values 1}
} {
Register a parameter in the system.
@@ -1111,10 +1123,11 @@
}
ad_proc -public apm_interface_add {
- {
- -callback apm_dummy_callback
- -interface_id ""
- } version_id interface_uri interface_version
+ {-callback apm_dummy_callback}
+ {-interface_id ""}
+ version_id
+ interface_uri
+ interface_version
} {
Add a interface to a version.