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

[jms]

jms		Fri Dec  4 14:33:52 2009 EDT

  Modified files:              
    /loncom/interface	domainprefs.pm 
  Log:
  Minor bug fix to login page help links configuration
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.122 loncom/interface/domainprefs.pm:1.123
--- loncom/interface/domainprefs.pm:1.122	Fri Dec  4 14:17:38 2009
+++ loncom/interface/domainprefs.pm	Fri Dec  4 14:33:52 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.122 2009/12/04 14:17:38 jms Exp $
+# $Id: domainprefs.pm,v 1.123 2009/12/04 14:33:52 jms Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6033,7 +6033,14 @@
         }
     }
     
-    my $putresult = &Apache::lonnet::put_dom('configuration',\%helphash,$dom);
+    
+    my $putresult;
+    
+    if (keys(%changes) > 0) {
+    	$putresult = &Apache::lonnet::put_dom('configuration',\%helphash,$dom);
+    } else {
+    	$putresult = 'ok';
+    }
                                              
     if ($putresult eq 'ok') {
         if (keys(%changes) > 0) {