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

raeburn raeburn@source.lon-capa.org
Mon, 07 Feb 2011 21:04:09 -0000


raeburn		Mon Feb  7 21:04:09 2011 EDT

  Modified files:              
    /loncom/interface	domainprefs.pm 
  Log:
  - Eliminate duplicate declarations.
  
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.141 loncom/interface/domainprefs.pm:1.142
--- loncom/interface/domainprefs.pm:1.141	Wed Dec  8 03:38:46 2010
+++ loncom/interface/domainprefs.pm	Mon Feb  7 21:04:09 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.141 2010/12/08 03:38:46 raeburn Exp $
+# $Id: domainprefs.pm,v 1.142 2011/02/07 21:04:09 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -867,7 +867,6 @@
                                                   domlogo => 'Domain Logo',
                                                   login => 'Login box');
     my $itemcount = 1;
-    my ($css_class,$datatable);
     foreach my $item (@toggles) {
         $css_class = $itemcount%2?' class="LC_odd_row"':'';
         $datatable .=  
@@ -4989,7 +4988,7 @@
                         middlename => 'Middle Name',
                         generation => 'Generation',
                       );
-    my $othertitle = &mt('All users');
+    $othertitle = &mt('All users');
     if (keys(%{$usertypes}) >  0) {
         $othertitle = &mt('Other users');
     }
@@ -6491,7 +6490,6 @@
     my %serverstatushash =  (
                                 serverstatuses => \%newserverstatus,
                             );
-    my %changes;
     foreach my $type (@pages) {
         foreach my $setting ('namedusers','machines') {
             my (@current,@new);