--- doc/loncapafiles/updatequery.piml	2002/12/09 18:37:15	1.20
+++ doc/loncapafiles/updatequery.piml	2002/12/09 18:54:40	1.21
@@ -1,7 +1,7 @@
 <!-- updatequery.piml -->
 <!-- Scott Harrison -->
 
-<!-- $Id: updatequery.piml,v 1.20 2002/12/09 18:37:15 albertel Exp $ -->
+<!-- $Id: updatequery.piml,v 1.21 2002/12/09 18:54:40 albertel Exp $ -->
 
 <!--
 
@@ -541,13 +541,14 @@ END
 # if valid then process, otherwise loop
 my $hostname=`hostname`;chomp($hostname);
 my $hostaddress=`hostname -i $hostname`;chomp($hostaddress);
+$hostaddress=~s/\s//;
 $flag=0;
 while (!$flag) {
   print "ENTER 1, 2, 3, or 4:\n";
   my $choice=&lt;&gt;;
   chomp($choice);
   $line2insert=&lt;&lt;END;
-$perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress
+$perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress:$domainDescription
 END
   $date=`date -I`; chomp($date);
   $lonHostID=$perlvar{'lonHostID'};
@@ -606,7 +607,6 @@ END
        open(OUT,'&gt;&gt;../new_'.$lonCluster.'_hosts.tab') or
          die("cannot open loncom/${lonCluster}_hosts.tab for output\n");
          print(OUT $line2insert);
-	print($line2insert);
        close(OUT);
       `ln -s new_${lonCluster}_hosts.tab ../hosts.tab`;
       # email appropriate message
@@ -626,8 +626,8 @@ END
 New entry for $lonCluster.
 END
       `cat ../${lonCluster}_hosts.tab &gt; ../new_${lonCluster}_hosts.tab`;
-       open(OUT,'&gt;../new_'.$lonCluster.'_hosts.tab') or
-         die("cannot open loncom/${lonCluster}_hosts.tab for output\n");
+       open(OUT,'&gt;&gt;../new_'.$lonCluster.'_hosts.tab') or
+         die("cannot open loncom/new_${lonCluster}_hosts.tab for output\n");
          print(OUT $line2insert);
        close(OUT);
       `ln -s new_${lonCluster}_hosts.tab ../hosts.tab`;