[LON-CAPA-cvs] cvs: loncom /html/adm/helper course.initialization.helper

[albertel]

albertel		Tue Sep  4 20:59:51 2007 EDT

  Modified files:              
    /loncom/html/adm/helper	course.initialization.helper 
  Log:
  - eliminate use of lonnet::all_domain
  
  
Index: loncom/html/adm/helper/course.initialization.helper
diff -u loncom/html/adm/helper/course.initialization.helper:1.18 loncom/html/adm/helper/course.initialization.helper:1.19
--- loncom/html/adm/helper/course.initialization.helper:1.18	Mon Sep  3 16:23:57 2007
+++ loncom/html/adm/helper/course.initialization.helper	Tue Sep  4 20:59:51 2007
@@ -251,13 +251,12 @@
       } else {
           $cloners[0] = $val;
       }
-      my @alldoms = &Apache::lonnet::all_domains();
       foreach my $item (@cloners) {
           if ($item ne '*') {
               my ($clname,$cldom) = split(/:/,$item);
               if ($clname eq '*') {
                   if ($cldom =~ /^$match_dom$/) {
-                      if (!grep(/^\Q$cldom\E$/,@alldoms)) {
+                      if (!&Apache::lonnet::domain($udom)) {
                           $disallowed{'domain'} .= $item.',';
                       }
                   } else {