Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -r1.54 -r1.55
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl 10 Oct 2003 16:19:18 -0000 1.54
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl 17 Oct 2003 08:41:50 -0000 1.55
@@ -255,8 +255,6 @@
-username $username \
-authority_id $authority_id]
- ns_log Notice "LARS: [array get result]"
-
# Returns:
# result(account_status)
# result(account_message)
Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -r1.65 -r1.66
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl 16 Oct 2003 10:50:12 -0000 1.65
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl 17 Oct 2003 08:41:49 -0000 1.66
@@ -437,7 +437,7 @@
# Just to get us started
set updated_p 1
- ns_log Notice "LARS: STARTING DEPENDENCY CHECK"
+ ns_log Debug "STARTING DEPENDENCY CHECK"
# Outer loop tries to find a package from the repository to add if
# we're stuck because of unsatisfied dependencies
@@ -462,7 +462,7 @@
if { ![info exists provided($req_uri)] || \
[apm_version_names_compare $provided($req_uri) $req_version]== -1 } {
- ns_log Notice "LARS: $package_key requires $req_uri $req_version => failed"
+ ns_log Debug "$package_key requires $req_uri $req_version => failed"
set satisfied_p 0
@@ -472,7 +472,7 @@
set required($req_uri) $req_version
}
} else {
- ns_log Notice "LARS: $package_key requires $req_uri $req_version => OK"
+ ns_log Debug "$package_key requires $req_uri $req_version => OK"
}
}
@@ -534,7 +534,7 @@
array unset version
array set version $repository($package_key)
- ns_log Notice "LARS: Considering $package_key: [array get version]"
+ ns_log Debug "Considering $package_key: [array get version]"
# Let's see if this package provides anything we need
foreach prov $version(provides) {
@@ -544,7 +544,7 @@
if { [info exists required($prov_uri)] && \
[apm_version_names_compare $required($prov_uri) $prov_version] <= 0 } {
- ns_log Notice "LARS: Adding $package_key, as it provides $prov_uri $prov_version"
+ ns_log Debug "Adding $package_key, as it provides $prov_uri $prov_version"
# If this package provides something that's required in a version high enough
# add it to the pending list
@@ -591,9 +591,9 @@
[apm_version_names_compare $provided($req_uri) $req_version] == -1 } {
lappend failed($package_key) [list $req_uri $req_version]
if { [info exists provided($req_uri)] } {
- ns_log Notice "LARS: Failed dependency: $package_key requires $req_uri $req_version, but we only provide $provided($req_uri)"
+ ns_log Debug "Failed dependency: $package_key requires $req_uri $req_version, but we only provide $provided($req_uri)"
} else {
- ns_log Notice "LARS: Failed dependency: $package_key requires $req_uri $req_version, but we don't have it"
+ ns_log Debug "Failed dependency: $package_key requires $req_uri $req_version, but we don't have it"
}
}
}
@@ -619,7 +619,7 @@
@author Peter Marklund
} {
# If acs-lang hasn't been installed yet we simply return
- if { [llength [info proc lang::catalog::import_from_files]] == 0 || ![apm_package_installed_p acs-lang] } {
+ if { [llength [info proc lang::catalog::import]] == 0 || ![apm_package_installed_p acs-lang] } {
return
}
@@ -745,7 +745,6 @@
} else {
# We are installing a new package
- # Load catalog files without the upgrade switch before package version is changed in db
apm_load_catalog_files $package_key
set version_id [apm_package_install_version \
@@ -1791,7 +1790,7 @@
set version(install_type) upgrade
}
- ns_log Notice "LARS: $version(package.key) = $version(install_type) -- [array get installed_version]"
+ ns_log Debug "$version(package.key) = $version(install_type) -- [array get installed_version]"
if { ![string equal $version(install_type) already_installed] } {
set repository($version(package.key)) [array get version]
Index: openacs-4/packages/acs-templating/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/form-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/acs-templating/tcl/form-procs.tcl 15 Oct 2003 12:35:51 -0000 1.23
+++ openacs-4/packages/acs-templating/tcl/form-procs.tcl 17 Oct 2003 08:41:49 -0000 1.24
@@ -447,7 +447,6 @@
set name "formbutton:$name"
template::element create $id $name -widget submit -label $label -datatype text
- ns_log Notice "LARS: template::element create $id $name -widget submit -label $label -datatype text"
}
# make a reference to the formerror array with any validation messages
Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl 16 Oct 2003 13:33:49 -0000 1.8
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl 17 Oct 2003 08:41:49 -0000 1.9
@@ -819,12 +819,8 @@
# multirow data source. The output of this procedure will be
# placed in __adp_output in this stack frame.
- #ns_log Notice "LARS: Code source: [info body template::code::adp::$file_stub]"
-
template::code::adp::$file_stub
- #ns_log Notice "LARS: template::list::template returns: $__adp_output"
-
return $__adp_output
}
@@ -1053,8 +1049,6 @@
# evaluate the code and return the rendered HTML for the list
set __output [template::adp_eval __list_code]
- #ns_log Notice "LARS: template::list::render returning => $__output"
-
return $__output
}
@@ -1068,8 +1062,6 @@
set __adp_output $list_properties(row_template)
- #ns_log Notice "LARS: render_row. __adp_output = $__adp_output"
-
# compile the template (this is the second compilation, if we're using a dynamic template -- I think)
set __list_code [template::adp_compile -string $__adp_output]
@@ -1350,8 +1342,6 @@
# multirow data source. The output of this procedure will be
# placed in __adp_output in this stack frame.
- #ns_log Notice "LARS: Code source: [info body template::code::adp::$file_stub]"
-
template::code::adp::$file_stub
return $__adp_output
@@ -1695,8 +1685,6 @@
# Get an upvar'd reference to list_properties
template::list::get_reference -name $list_name
- #ns_log Notice "LARS: element::render -list_name $list_name -element_name $element_name: upvar #$level $list_name:properties list_properties; list_properties = [array get list_properties], [info exists list_properties]"
-
set multirow $list_properties(multirow)
# Get the element properties
@@ -1733,8 +1721,6 @@
set output "$old_output$old_output"
}
- #ns_log Notice "LARS: element=$element_name, element_properties=[array get element_properties], output=$output"
-
return $output
}