--- loncom/lonnet/perl/lonnet.pm	2008/11/25 18:20:11	1.972
+++ loncom/lonnet/perl/lonnet.pm	2008/11/29 09:57:43	1.974
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.972 2008/11/25 18:20:11 jms Exp $
+# $Id: lonnet.pm,v 1.974 2008/11/29 09:57:43 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2619,7 +2619,7 @@ sub get_course_adv_roles {
             }
         } else {
             my $key=&plaintext($role);
-            if ($section) { $key.=' (Section '.$section.')'; }
+            if ($section) { $key.=' ('.&Apache::lonlocal::mt('Section [_1]',$section).')'; }
             if ($returnhash{$key}) {
 	        $returnhash{$key}.=','.$username.':'.$domain;
             } else {
@@ -8543,6 +8543,12 @@ sub get_dns {
 	}
 	return $domain{$name}{$what};
     }
+
+    sub domain_info {
+        &load_domain_tab() if (!$loaded);
+        return %domain;
+    }
+
 }
 
 
@@ -8620,6 +8626,11 @@ sub get_dns {
 	return %name_to_host;
     }
 
+    sub all_host_domain {
+        &load_hosts_tab() if (!$loaded);
+        return %hostdom;
+    }
+
     sub is_library {
 	&load_hosts_tab() if (!$loaded);