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

[raeburn]

raeburn		Sat Sep 21 13:49:31 2013 EDT

  Modified files:              
    /loncom/interface	domainprefs.pm 
  Log:
  - Eliminate duplicate definitions.
  
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.207 loncom/interface/domainprefs.pm:1.208
--- loncom/interface/domainprefs.pm:1.207	Tue Sep 10 17:43:58 2013
+++ loncom/interface/domainprefs.pm	Sat Sep 21 13:49:31 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.207 2013/09/10 17:43:58 bisitz Exp $
+# $Id: domainprefs.pm,v 1.208 2013/09/21 13:49:31 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1963,7 +1963,7 @@
 
 sub print_requestmail {
     my ($dom,$action,$settings,$rowtotal) = @_;
-    my ($now,$datatable,%currapp,$rows);
+    my ($now,$datatable,%currapp);
     $now = time;
     if (ref($settings) eq 'HASH') {
         if (ref($settings->{'notify'}) eq 'HASH') {
@@ -8074,7 +8074,7 @@
         }
         foreach my $item (@numbers) {
             my ($currdef,$newdef);
-            my $newdef = $env{'form.'.$item};
+            $newdef = $env{'form.'.$item};
             if ($item eq 'anonsurvey_threshold') {
                 $currdef = $domconfig{'coursedefaults'}{$item};
                 $newdef =~ s/\D//g;