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

[raeburn]

raeburn		Mon Feb  7 22:00:22 2011 EDT

  Modified files:              (Branch: version_2_10_X)
    /loncom/interface	domainprefs.pm 
  Log:
  - Backport 1.142.
  
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.138.2.6 loncom/interface/domainprefs.pm:1.138.2.7
--- loncom/interface/domainprefs.pm:1.138.2.6	Thu Dec 30 18:53:08 2010
+++ loncom/interface/domainprefs.pm	Mon Feb  7 22:00:22 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.138.2.6 2010/12/30 18:53:08 raeburn Exp $
+# $Id: domainprefs.pm,v 1.138.2.7 2011/02/07 22:00:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -859,7 +859,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 .=  
@@ -4981,7 +4980,7 @@
                         middlename => 'Middle Name',
                         generation => 'Generation',
                       );
-    my $othertitle = &mt('All users');
+    $othertitle = &mt('All users');
     if (keys(%{$usertypes}) >  0) {
         $othertitle = &mt('Other users');
     }
@@ -6483,7 +6482,6 @@
     my %serverstatushash =  (
                                 serverstatuses => \%newserverstatus,
                             );
-    my %changes;
     foreach my $type (@pages) {
         foreach my $setting ('namedusers','machines') {
             my (@current,@new);