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 -r1.22 -r1.23
--- openacs-4/packages/acs-tcl/lib/page-error.tcl	24 Jun 2019 07:06:22 -0000	1.22
+++ openacs-4/packages/acs-tcl/lib/page-error.tcl	3 Sep 2024 15:37:34 -0000	1.23
@@ -33,13 +33,13 @@
  --------------------------------------------------------<br>
                    [_ acs-tcl.Error_Report]<br>
  --------------------------------------------------------<br>
-<strong>[_ acs-tcl.Previus]</strong> [ns_quotehtml $return_url]<br>
+<strong>[_ acs-tcl.Previous]</strong> [ns_quotehtml $return_url]<br>
 <strong>[_ acs-tcl.Page]</strong> [ns_quotehtml $error_url]<br>
 <strong>[_ acs-tcl.File]</strong> [ns_quotehtml $error_file]<br>
 <strong>[_ acs-tcl.User_Name]</strong> [ns_quotehtml $user_name]<br>
 <strong>[_ acs-tcl.lt_User_Id_of_the_user_t]</strong> [ns_quotehtml $user_id]<br>
 <strong>IP:</strong> [ns_quotehtml [ns_conn peeraddr]]<br>
-<strong>[_ acs-tcl.Browser_of_the_user]</strong> [ns_quotehtml [ns_set get [ns_conn headers] User-Agent]]<br>
+<strong>[_ acs-tcl.Browser_of_the_user]</strong> [ns_quotehtml [ns_set iget [ns_conn headers] User-Agent]]<br>
 <br>
 -----------------------------<br>
 [_ acs-tcl.Error_details]<br>
@@ -54,7 +54,7 @@
 if { $bug_number eq "" && $send_email_p} {
     acs_mail_lite::send -send_immediately \
                         -to_addr $send_to -from_addr $public_userm_email \
-                        -mime_type text/html \
+                        -mime_type "text/html" \
                         -subject $subject \
                         -body $error_desc_email
 }
@@ -194,7 +194,7 @@
             {mode display}
         }
         {previus_url:text(inform)
-            {label "[_ acs-tcl.Previus]"}
+            {label "[_ acs-tcl.Previous]"}
             {value $prev_url}
         }
         {err_url:text(inform)
@@ -264,12 +264,12 @@
  -------------------------------------------------------- <br>
                    [_ acs-tcl.Error_Report] <br>
  -------------------------------------------------------- <br>
-<br><strong>[_ acs-tcl.Previus]</strong> [ns_quotehtml $prev_url]
+<br><strong>[_ acs-tcl.Previous]</strong> [ns_quotehtml $prev_url]
 <br><strong>[_ acs-tcl.Page]</strong> [ns_quotehtml $error_url]
 <br><strong>[_ acs-tcl.File]</strong> [ns_quotehtml $error_file]
 <br><strong>[_ acs-tcl.User_Name]</strong> [ns_quotehtml $user_name]
 <br><strong>[_ acs-tcl.lt_User_Id_of_the_user_t]</strong> [ns_quotehtml $user_id]
-<br>[_ acs-tcl.Browser_of_the_user]</strong> [ns_quotehtml [ns_set get [ns_conn headers] User-Agent]]
+<br>[_ acs-tcl.Browser_of_the_user]</strong> [ns_quotehtml [ns_set iget [ns_conn headers] User-Agent]]
 <br><br><strong>[_ acs-tcl.User_comments]</strong>
 <br>
 [ns_quotehtml [template::util::richtext::get_property contents $description]]<br>
@@ -316,7 +316,7 @@
         # update the element_name list and bug array with category stuff
         foreach {category_id category_name} [bug_tracker::category_types] {
             lappend element_names $category_id
-            set bug($category_id) [cr::keyword::item_get_assigned -item_id $bug(bug_id) -parent_id $category_id]
+            set bug($category_id) [content::keyword::item_get_assigned-item_id $bug(bug_id) -parent_id $category_id]
             if {$bug($category_id) eq "" } {
                 set bug($category_id) [bug_tracker::get_default_keyword -parent_id $category_id]
             }