Index: openacs-4/packages/acs-tcl/lib/page-error.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/lib/page-error.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-tcl/lib/page-error.tcl 10 Jan 2007 21:22:11 -0000 1.6
+++ openacs-4/packages/acs-tcl/lib/page-error.tcl 12 Jul 2009 01:08:30 -0000 1.7
@@ -37,13 +37,13 @@
--------------------------------------------------------
[_ acs-tcl.Error_Report]
--------------------------------------------------------
-[_ acs-tcl.Previus] $return_url
-[_ acs-tcl.Page] $error_url
-[_ acs-tcl.File] $error_file
-[_ acs-tcl.User_Name] $user_name
-[_ acs-tcl.lt_User_Id_of_the_user_t] $user_id
-IP: [ns_conn peeraddr]
-[_ acs-tcl.Browser_of_the_user] [ad_quotehtml [ns_set get [ns_conn headers] User-Agent]]
+[_ acs-tcl.Previus] $return_url
+[_ acs-tcl.Page] $error_url
+[_ acs-tcl.File] $error_file
+[_ acs-tcl.User_Name] $user_name
+[_ acs-tcl.lt_User_Id_of_the_user_t] $user_id
+IP: [ns_conn peeraddr]
+[_ acs-tcl.Browser_of_the_user] [ad_quotehtml [ns_set get [ns_conn headers] User-Agent]]
-----------------------------
[_ acs-tcl.Error_details]
@@ -56,7 +56,7 @@
[_ acs-tcl.lt_NB_This_error_was_sub]"
if { $bug_number eq "" && $send_email_p} {
- ns_sendmail "$send_to" $public_userm_email $subject $error_desc_email
+ acs_mail_lite::send -send_immediately -to_addr $send_to -from_addr $public_userm_email -subject $subject -body $error_desc_email
}
set bt_instance [parameter::get -package_id [ad_acs_kernel_id] \
-parameter BugTrackerInstance -default ""]
@@ -128,7 +128,7 @@
bug_tracker::bug::edit \
-bug_id $bug_id \
-enabled_action_id $available_enabled_action_id \
- -description " [_ acs-tcl.reopened_auto ] " \
+ -description " [_ acs-tcl.reopened_auto ] " \
-desc_format text/html \
-array row \
-entry_id $bug(entry_id)
@@ -175,15 +175,15 @@
}
{summary:text(text)
{label "[_ bug-tracker.Summary]"}
- {before_html ""}
- {after_html ""}
+ {before_html ""}
+ {after_html ""}
{mode display}
{html {size 50}}
}
{pretty_state:text(inform)
{label "[_ bug-tracker.Status]"}
- {before_html ""}
- {after_html ""}
+ {before_html ""}
+ {after_html ""}
{mode display}
}
{resolution:text(select),optional
@@ -270,13 +270,13 @@
--------------------------------------------------------
[_ acs-tcl.Error_Report]
--------------------------------------------------------
-
[_ acs-tcl.Previus] $prev_url
-
[_ acs-tcl.Page] $error_url
-
[_ acs-tcl.File] $error_file
-
[_ acs-tcl.User_Name] $user_name
-
[_ acs-tcl.lt_User_Id_of_the_user_t] $user_id
-
[_ acs-tcl.Browser_of_the_user] [ad_quotehtml [ns_set get [ns_conn headers] User-Agent]]
-
[_ acs-tcl.User_comments]
+
[_ acs-tcl.Previus] $prev_url
+
[_ acs-tcl.Page] $error_url
+
[_ acs-tcl.File] $error_file
+
[_ acs-tcl.User_Name] $user_name
+
[_ acs-tcl.lt_User_Id_of_the_user_t] $user_id
+
[_ acs-tcl.Browser_of_the_user] [ad_quotehtml [ns_set get [ns_conn headers] User-Agent]]
+
[_ acs-tcl.User_comments]
[template::util::richtext::get_property contents $description]
"