--- doc/loncapafiles/updatequery.piml	2002/05/13 17:56:29	1.8
+++ doc/loncapafiles/updatequery.piml	2002/05/16 18:38:11	1.10
@@ -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.10 2002/05/16 18:38:11 harris41 Exp $ -->
 
 <!--
 
@@ -52,7 +52,7 @@ sleep(3);
 </perlscript>
 </file>
 <file>
-<target dist='default'>/home/httpd/lonUsers2/</target>
+<target dist='default'>/home/httpd/lonTabs/hosts.tab</target>
 <perlscript mode='fg'>
 $|=1;
 unless (-e "<TARGET />") {
@@ -220,7 +220,7 @@ END
 # 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 @@ END
   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 @@ my %perlvar;
     }
     $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 @@ while (!$flag) {
 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 @@ END
   }
   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);