[LON-CAPA-cvs] cvs: doc /loncapafiles updatequery.piml

[harris41]

harris41		Thu May 16 11:29:15 2002 EDT

  Modified files:              
    /doc/loncapafiles	updatequery.piml 
  Log:
  BUG 440; using lonAdmEMail now instead of lonAdmEmail; FIX
  
  
Index: doc/loncapafiles/updatequery.piml
diff -u doc/loncapafiles/updatequery.piml:1.8 doc/loncapafiles/updatequery.piml:1.9
--- doc/loncapafiles/updatequery.piml:1.8	Mon May 13 13:56:29 2002
+++ doc/loncapafiles/updatequery.piml	Thu May 16 11:29:15 2002
@@ -1,7 +1,7 @@
 <!-- updatequery.piml -->
 <!-- Scott Harrison -->
 
-<!-- $Id: updatequery.piml,v 1.8 2002/05/13 17:56:29 harris41 Exp $ -->
+<!-- $Id: updatequery.piml,v 1.9 2002/05/16 15:29:15 harris41 Exp $ -->
 
 <!--
 
@@ -220,7 +220,7 @@
 # get e-mail address
 # accept if valid, if not valid, tell user and repeat
 $flag=0;
-my $lonAdmEmail;
+my $lonAdmEMail;
 while (!$flag) {
   print(&lt;&lt;END);
 
@@ -234,9 +234,9 @@
   chomp($choice);
   if ($choice=~/\@/) {
     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
-    print(OUT 'lonAdmEmail'."\t".$choice."\n");
+    print(OUT 'lonAdmEMail'."\t".$choice."\n");
     close(OUT);
-    $lonAdmEmail=$choice;
+    $lonAdmEMail=$choice;
     $flag=1;
   }
   else {
@@ -262,7 +262,7 @@
     }
     $perlvar{'lonHostID'}=$lonHostID;
     $perlvar{'lonDefDomain'}=$lonDefDomain;
-    $perlvar{'lonAdmEmail'}=$lonAdmEmail;
+    $perlvar{'lonAdmEMail'}=$lonAdmEMail;
     $perlvar{'lonRole'}=$lonRole;
     unless ($perlvar{'lonSqlAccess'}) {
        $perlvar{'lonSqlAccess'}='localhostkey';
@@ -338,7 +338,7 @@
 This is now the current configuration of your machine.
 1) Domain Name: $perlvar{'lonDefDomain'}
 2) Machine Name: $perlvar{'lonHostID'}
-3) System Administrator's E-mail Address: $perlvar{'lonAdmEmail'}
+3) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'}
 4) Role: $perlvar{'lonRole'}
 5) Cache Expiration Time: $perlvar{'lonExpire'}
 6) Server Load: $perlvar{'lonLoadLim'}
@@ -369,12 +369,12 @@
   }
   elsif ($choice==3) {
   print(&lt;&lt;END);
-3) System Administrator's E-mail Address: $perlvar{'lonAdmEmail'}
+3) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'}
 ENTER NEW VALUE:
 END
     my $choice2=&lt;&gt;;
     chomp($choice2);
-    $perlvar{'lonAdmEmail'}=$choice2;
+    $perlvar{'lonAdmEMail'}=$choice2;
   }
   elsif ($choice==4) {
   print(&lt;&lt;END);