--- loncom/interface/domainprefs.pm	2010/12/25 00:52:58	1.138.2.5
+++ loncom/interface/domainprefs.pm	2011/02/07 22:00:22	1.138.2.7
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.138.2.5 2010/12/25 00:52:58 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 @@ sub print_login {
                                                   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 .=  
@@ -2856,6 +2855,7 @@ sub print_defaults {
             my $includeempty = 1;
             $datatable .= &Apache::loncommon::select_datelocale($item,$domdefaults{$item},undef,$includeempty);
         } else {
+            my $size;
             if ($item eq 'portal_def') {
                 $size = ' size="25"';
             }
@@ -4980,7 +4980,7 @@ sub modify_autoupdate {
                         middlename => 'Middle Name',
                         generation => 'Generation',
                       );
-    my $othertitle = &mt('All users');
+    $othertitle = &mt('All users');
     if (keys(%{$usertypes}) >  0) {
         $othertitle = &mt('Other users');
     }
@@ -6482,7 +6482,6 @@ sub modify_serverstatuses {
     my %serverstatushash =  (
                                 serverstatuses => \%newserverstatus,
                             );
-    my %changes;
     foreach my $type (@pages) {
         foreach my $setting ('namedusers','machines') {
             my (@current,@new);