Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.xql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.xql	4 Oct 2005 02:38:55 -0000	1.6
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.xql	8 Jan 2010 17:39:58 -0000	1.7
@@ -41,4 +41,44 @@
       </querytext>
    </fullquery>
 
+  <fullquery name="lang::util::iso6392_from_language.get_iso2_code_from_iso1">      
+    <querytext>
+      
+      select iso_639_2
+      from   language_codes
+      where  iso_639_1 = :language
+    
+    </querytext>
+  </fullquery>
+ 
+  <fullquery name="lang::util::iso6392_from_language.get_iso2_code_from_iso2">      
+    <querytext>
+      
+      select iso_639_2
+      from   language_codes
+      where  iso_639_2 = :language
+    
+    </querytext>
+  </fullquery>
+ 
+  <fullquery name="lang::util::language_label.get_label_from_iso1">      
+    <querytext>
+      
+      select label
+      from   language_codes
+      where  iso_639_1 = :language
+    
+    </querytext>
+  </fullquery>
+ 
+  <fullquery name="lang::util::language_label.get_label_from_iso2">      
+    <querytext>
+      
+      select label
+      from   language_codes
+      where  iso_639_2 = :language
+    
+    </querytext>
+  </fullquery>
+ 
 </queryset>