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

[raeburn]

raeburn		Mon Oct  6 21:08:03 2014 EDT

  Modified files:              
    /loncom/interface	domainprefs.pm 
  Log:
  - Domain configuration - load balancing.
   - When "specific server" selected check that proposed server is valid.
  
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.254 loncom/interface/domainprefs.pm:1.255
--- loncom/interface/domainprefs.pm:1.254	Mon Oct  6 00:48:39 2014
+++ loncom/interface/domainprefs.pm	Mon Oct  6 21:08:03 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.254 2014/10/06 00:48:39 raeburn Exp $
+# $Id: domainprefs.pm,v 1.255 2014/10/06 21:08:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -10779,7 +10779,10 @@
                     $rule = $env{'form.loadbalancing_rules_'.$i.'_'.$type};
                 }
                 if ($rule eq 'specific') {
-                    $rule = $env{'form.loadbalancing_singleserver_'.$i.'_'.$type};
+                    my $specifiedhost = $env{'form.loadbalancing_singleserver_'.$i.'_'.$type};
+                    if (exists($servers{$specifiedhost})) { 
+                        $rule = $specifiedhost;
+                    }
                 }
                 $defaultshash{'loadbalancing'}{$balancer}{'rules'}{$type} = $rule;
                 if (ref($currrules{$balancer}) eq 'HASH') {