[LON-CAPA-cvs] cvs: loncom /interface domainprefs.pm

[albertel]

albertel		Tue Apr 10 17:40:13 2007 EDT

  Modified files:              
    /loncom/interface	domainprefs.pm 
  Log:
  - if didn't need to be in the loop
  
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.9 loncom/interface/domainprefs.pm:1.10
--- loncom/interface/domainprefs.pm:1.9	Tue Apr 10 16:49:07 2007
+++ loncom/interface/domainprefs.pm	Tue Apr 10 17:40:12 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.9 2007/04/10 20:49:07 raeburn Exp $
+# $Id: domainprefs.pm,v 1.10 2007/04/10 21:40:12 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1454,10 +1454,9 @@
         $home = &Apache::lonnet::domain($dom,'primary');
     }
     my @ids=&Apache::lonnet::current_machine_ids();
-    foreach my $id (@ids) { if ($id eq $home) { $allowed=1; }
-        if (!$allowed) {
-            $switchserver='<a href="/adm/switchserver?otherserver='.$home.'&role=dc./'.$dom.'/">'.&mt('Switch Server').'</a>';
-        }
+    foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
+    if (!$allowed) {
+	$switchserver='<a href="/adm/switchserver?otherserver='.$home.'&role=dc./'.$dom.'/">'.&mt('Switch Server').'</a>';
     }
     return $switchserver;
 }