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 -r1.49 -r1.49.8.1
--- openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	31 Mar 2009 20:13:30 -0000	1.49
+++ openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	25 Aug 2013 19:57:36 -0000	1.49.8.1
@@ -236,10 +236,39 @@
     template::util::multirow_foreach all_messages {
         lappend message_list @all_messages.message_key@ @all_messages.message@
     }
+    #template::multirow foreach all_messages {
+    #    lappend message_list $message_key $message
+    #}
 
     return $message_list
 }
+ad_proc -private lang::catalog::messages_in_db2 {
+    {-package_key:required}
+    {-locale:required}
+} {
+    Return a list of all messages for a certain package and locale.
 
+    @return An array list with message keys as keys and messages as
+            values.
+
+    @see lang::catalog::all_messages_for_package_and_locale
+
+    @author Peter Marklund
+} {
+    set message_list [list]
+
+    all_messages_for_package_and_locale $package_key $locale
+    #template::util::multirow_foreach all_messages {
+    #    lappend message_list @all_messages.message_key@ @all_messages.message@
+    #}
+    template::multirow foreach all_messages {
+        lappend message_list $message_key $message
+    }
+
+    return $message_list
+}
+
+
 ad_proc -private lang::catalog::last_sync_messages {
     {-package_key:required}
     {-locale:required}
@@ -404,10 +433,14 @@
 		set messages_list [list]
 		set descriptions_list [list]
 		all_messages_for_package_and_locale $package_key $locale
-		template::util::multirow_foreach all_messages {
-		    lappend messages_list @all_messages.message_key@ @all_messages.message@
-		    lappend descriptions_list @all_messages.message_key@ @all_messages.description@
+ 		template::util::multirow_foreach all_messages {
+ 		    lappend messages_list @all_messages.message_key@ @all_messages.message@
+ 		    lappend descriptions_list @all_messages.message_key@ @all_messages.description@
 		}
+		#template::multirow foreach all_messages {
+		#    lappend messages_list $message_key $message
+		#    lappend descriptions_list $message_key $description
+		#}
 		
 		set catalog_file_path [get_catalog_file_path \
 					   -package_key $package_key \