--- doc/loncapafiles/updatequery.piml	2002/06/06 15:36:41	1.13
+++ doc/loncapafiles/updatequery.piml	2002/06/06 15:44:27	1.14
@@ -1,7 +1,7 @@
 <!-- updatequery.piml -->
 <!-- Scott Harrison -->
 
-<!-- $Id: updatequery.piml,v 1.13 2002/06/06 15:36:41 harris41 Exp $ -->
+<!-- $Id: updatequery.piml,v 1.14 2002/06/06 15:44:27 harris41 Exp $ -->
 
 <!--
 
@@ -486,16 +486,11 @@ END
       `grep -v "$lonHostID:" ../production_hosts.tab &gt; ../new_production_hosts.tab`;
        open(OUT,'&gt;&gt;../new_production_hosts.tab') or
          die("cannot open loncom/standalone_hosts.tab for output\n");
-         print(OUT &lt;&lt;END);
-$line2insert
-END
+         print(OUT $line2insert);
        close(OUT);
       `ln -s new_production_hosts.tab ../hosts.tab`;
       # email appropriate message
-#      `echo "$date" | mail -s "REPLACE:$lonHostID:$date" installrecord\@mail.lon-capa.org`;
       `echo "REPLACE:$lonHostID:date:$line2insert" | mail -s "REPLACE:$lonHostID:$date" installrecord\@mail.lon-capa.org`;
-      # "REPLACE:hostid:date"
-      # "REPLACE:hostid:date:line"
     }
     elsif ($hostidexistflag and $lineexistflag) {
       `ln -s production_hosts.tab ../hosts.tab`;