Index: openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl,v
diff -u -N -r1.17 -r1.18
--- openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	12 Jul 2003 01:10:36 -0000	1.17
+++ openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	8 Aug 2003 12:21:27 -0000	1.18
@@ -132,7 +132,7 @@
         array set key_text_array {}
         foreach message_node $message_node_list {
             set key [get_required_xml_attribute $message_node ${KEY_ATTR}]
-            set text [get_required_xml_content $message_node]
+            set text [xml_node_get_content $message_node ]
             set key_text_array($key) $text
         }        
 
@@ -157,21 +157,6 @@
         return $value
     }
 
-    ad_proc -private get_required_xml_content { element } {
-        Get the content of the given element and raise an error
-        if the content is empty.
-
-        @author Peter Marklund (peter@collaboraid.biz)
-    } {
-        set content [xml_node_get_content $element]
-
-        if { [empty_string_p $content] } {
-            error "Required content missing from element <[xml_node_get_name $element]>"
-        }
-
-        return $content
-    }
-
     ad_proc -public export_package_to_files { package_key } {
         Export all messages of the given package from the database to xml
         catalog files. The messages for each locale are stored in its own file.