The system was unable to send email. Please notify the user personally. This problem is probably caused by a misconfiguration of your email system. Here is the error:
The system was unable to send email. Please notify the user personally. This problem is probably caused by a misconfiguration of your email system. Here is the error:
"
foreach available_enabled_action_id [workflow::case::get_available_enabled_action_ids -case_id $case_id] {
Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs.tcl,v
diff -u -r1.88.2.2 -r1.88.2.3
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl 10 Sep 2015 08:21:54 -0000 1.88.2.2
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl 18 Sep 2015 07:33:48 -0000 1.88.2.3
@@ -2536,7 +2536,7 @@
while { [gets $fp line] >= 0 } {
# Don't bother writing out lines which are purely whitespace.
if { ![string is space $line] } {
- apm_callback_and_log $callback "[ad_quotehtml $line]\n"
+ apm_callback_and_log $callback "[ns_quotehtml $line]\n"
}
}
close $fp
@@ -2581,7 +2581,7 @@
while { [gets $fp line] >= 0 } {
# Don't bother writing out lines which are purely whitespace.
if { ![string is space $line] } {
- apm_callback_and_log $callback "[ad_quotehtml $line]\n"
+ apm_callback_and_log $callback "[ns_quotehtml $line]\n"
}
}
@@ -2666,7 +2666,7 @@
while { [gets $fd line] >= 0 } {
# Don't bother writing out lines which are purely whitespace.
if { ![string is space $line] } {
- apm_callback_and_log $callback "[ad_quotehtml $line]\n"
+ apm_callback_and_log $callback "[ns_quotehtml $line]\n"
}
}
close $fd
@@ -2711,7 +2711,7 @@
while { [gets $fp line] >= 0 } {
# Don't bother writing out lines which are purely whitespace.
if { ![string is space $line] } {
- apm_callback_and_log $callback "[ad_quotehtml $line]\n"
+ apm_callback_and_log $callback "[ns_quotehtml $line]\n"
}
}
@@ -2777,13 +2777,13 @@
while { [gets $fp line] >= 0 } {
# Don't bother writing out lines which are purely whitespace.
if { ![string is space $line] } {
- apm_callback_and_log $callback "[ad_quotehtml $line]\n"
+ apm_callback_and_log $callback "[ns_quotehtml $line]\n"
}
}
if { [catch {
close $fp
} errmsg] } {
- apm_callback_and_log $callback "[ad_quotehtml $errmsg]\n"
+ apm_callback_and_log $callback "[ns_quotehtml $errmsg]\n"
}
}
Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v
diff -u -r1.36.2.1 -r1.36.2.2
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl 17 Aug 2015 17:45:03 -0000 1.36.2.1
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl 18 Sep 2015 07:33:48 -0000 1.36.2.2
@@ -580,7 +580,7 @@
apm_callback_and_log $callback "
Downloading $url..."
if { [catch {apm_transfer_file -url $url -output_file_name $file_path} errmsg] } {
apm_callback_and_log $callback "Unable to download. Please check your URL..
- The following error was returned:
[ad_quotehtml $errmsg]
+ The following error was returned:
Done. Archive is [format %.1f [expr { [file size $file_path] / 1024.0 }]]KB, with [llength $files] files.
"
} errmsg] } {
apm_callback_and_log $callback "The follow error occured during the uncompression process:
-
[ad_quotehtml $errmsg]
+
[ns_quotehtml $errmsg]
"
ns_log Error "Error loading APM file form url $url: $errmsg\n$::errorInfo"
return
@@ -657,7 +657,7 @@
file delete -force $tmpdir
apm_callback_and_log $callback "The archive contains an unparseable package specification file:
$info_file. The following error was produced while trying to
- parse it:
# Pull out the package_id of the subsite closest to our current node
- set pkg_id [site_node_closest_ancestor_package "acs-subsite"]
+ set pkg_id [site_node::closest_ancestor_package -include_self -package_key "acs-subsite"]
@param default The value to return if no package can be found
Index: openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/table-display-procs.tcl,v
diff -u -r1.23.2.3 -r1.23.2.4
--- openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl 10 Sep 2015 08:22:00 -0000 1.23.2.3
+++ openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl 18 Sep 2015 07:33:49 -0000 1.23.2.4
@@ -864,9 +864,9 @@
}
foreach val [lindex $opt 3] {
if {$picked eq [lindex $val 0] } {
- append html "\n"
+ append html "\n"
} else {
- append html "\n"
+ append html "\n"
}
}
append html "\n"
Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -r1.67.2.1 -r1.67.2.2
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 10 Sep 2015 08:22:00 -0000 1.67.2.1
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 18 Sep 2015 07:33:49 -0000 1.67.2.2
@@ -76,7 +76,7 @@
# At this point, before inserting some of our own <, >, and "'s
# we quote the ones entered by the user:
if { !$no_quote_p } {
- set text [ad_quotehtml $text]
+ set text [ns_quotehtml $text]
}
if { $encode_p} {
@@ -1778,7 +1778,7 @@
@see ad_quotehtml
} {
- return [ad_quotehtml $arg]
+ return [ns_quotehtml $arg]
}
ad_proc -deprecated util_quote_double_quotes {arg} {
@@ -1787,7 +1787,7 @@
@see ad_quotehtml
} {
- return [ad_quotehtml $arg]
+ return [ns_quotehtml $arg]
}
ad_proc -deprecated philg_quote_double_quotes {arg} {
@@ -1796,7 +1796,7 @@
@see ad_quotehtml
} {
- return [ad_quotehtml $arg]
+ return [ns_quotehtml $arg]
}
# Local variables:
Index: openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl,v
diff -u -r1.18.2.1 -r1.18.2.2
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl 10 Sep 2015 08:22:01 -0000 1.18.2.1
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl 18 Sep 2015 07:33:49 -0000 1.18.2.2
@@ -276,15 +276,15 @@
}
} if_no_rows {
if {$default ne ""} {
- return "\n"
+ return "\n"
} else {
return {}
}
}
}
if { $count == 1 || ($dbcount == 1 && $hidden_if_one_db) } {
- return "$item\n"
+ return "$item\n"
} elseif {!$count && !$dbcount && $blank_if_no_db} {
return {}
} else {
Index: openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl,v
diff -u -r1.10.2.1 -r1.10.2.2
--- openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl 10 Sep 2015 08:22:03 -0000 1.10.2.1
+++ openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl 18 Sep 2015 07:33:49 -0000 1.10.2.2
@@ -217,7 +217,7 @@
if { [catch {set parse [xml_parse $data]} errMsg] } {
ns_log warning "acs_tcl__check_xql_files: failed parse $file $errMsg"
- aa_log_result fail "XML Parse Error: $file [ad_quotehtml $errMsg]"
+ aa_log_result fail "XML Parse Error: $file [ns_quotehtml $errMsg]"
} else {
# lets walk the nodes and check they are what we want to see.
Index: openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl,v
diff -u -r1.10.8.1 -r1.10.8.2
--- openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl 10 Sep 2015 08:22:03 -0000 1.10.8.1
+++ openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl 18 Sep 2015 07:33:49 -0000 1.10.8.2
@@ -193,7 +193,7 @@
#quote html
set html "\"<&text>\""
aa_log "Unquote html=$html"
- set result [ad_quotehtml $html]
+ set result [ns_quotehtml $html]
aa_true "Quoute html=$result" [string equal ""<&text>"" $result]
#unquote html
Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -r1.49.2.1 -r1.49.2.2
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl 10 Sep 2015 08:22:05 -0000 1.49.2.1
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl 18 Sep 2015 07:31:48 -0000 1.49.2.2
@@ -1287,11 +1287,11 @@
}
if {$element(mode) eq "edit"} {
- append output ""
+ append output ""
append output ""
} else {
append output $textdate
- append output ""
+ append output ""
}
return $output
Index: openacs-4/packages/acs-templating/tcl/filter-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/filter-procs.tcl,v
diff -u -r1.16.2.3 -r1.16.2.4
--- openacs-4/packages/acs-templating/tcl/filter-procs.tcl 10 Sep 2015 08:22:06 -0000 1.16.2.3
+++ openacs-4/packages/acs-templating/tcl/filter-procs.tcl 18 Sep 2015 07:31:48 -0000 1.16.2.4
@@ -85,7 +85,7 @@
ns_log debug "cmp_page_filter: Time elapsed: $timeElapsed"
} errMsg] } {
- set output