--- loncom/interface/domainprefs.pm	2010/04/14 05:16:47	1.102.2.14
+++ loncom/interface/domainprefs.pm	2011/02/07 21:39:45	1.102.2.16
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.102.2.14 2010/04/14 05:16:47 raeburn Exp $
+# $Id: domainprefs.pm,v 1.102.2.16 2011/02/07 21:39:45 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -824,7 +824,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 .=  
@@ -2030,7 +2029,7 @@ sub print_contacts {
                       '<input type="text" name="'.$type.'_others" '.
                       'value="'.$otheremails{$type}.'"  />';
         if ($type eq 'helpdeskmail') {
-            $datatable .= '<br />'.&mt('Bcc').':'.('&nbsp;'x6).
+            $datatable .= '<br />'.&mt('Bcc:').('&nbsp;'x6).
                           '<input type="text" name="'.$type.'_bcc" '.
                           'value="'.$bccemails{$type}.'"  />';
         }
@@ -4617,7 +4616,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');
     }
@@ -6113,7 +6112,6 @@ sub modify_serverstatuses {
     my %serverstatushash =  (
                                 serverstatuses => \%newserverstatus,
                             );
-    my %changes;
     foreach my $type (@pages) {
         foreach my $setting ('namedusers','machines') {
             my (@current,@new);