--- loncom/lonsql	2004/05/03 16:20:57	1.58
+++ loncom/lonsql	2004/05/11 21:08:20	1.60
@@ -3,7 +3,7 @@
 # The LearningOnline Network
 # lonsql - LON TCP-MySQL-Server Daemon for handling database requests.
 #
-# $Id: lonsql,v 1.58 2004/05/03 16:20:57 matthew Exp $
+# $Id: lonsql,v 1.60 2004/05/11 21:08:20 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -282,7 +282,7 @@ my $execdir=$perlvar{'lonDaemons'};
 open (PIDSAVE,">$execdir/logs/lonsql.pid");
 print PIDSAVE "$$\n";
 close(PIDSAVE);
-&logthis("<font color=red>CRITICAL: ---------- Starting ----------</font>");
+&logthis("<font color='red'>CRITICAL: ---------- Starting ----------</font>");
 
 #
 # Ignore signals generated during initial startup
@@ -353,7 +353,7 @@ sub make_new_child {
                                     $perlvar{'lonSqlAccess'},
                                     { RaiseError =>0,PrintError=>0})) { 
             sleep(10+int(rand(20)));
-            &logthis("<font color=blue>WARNING: Couldn't connect to database".
+            &logthis("<font color='blue'>WARNING: Couldn't connect to database".
                      ": $@</font>");
                      #  "($st secs): $@</font>");
             print "database handle error\n";
@@ -413,15 +413,13 @@ sub make_new_child {
             # result does not need to be escaped because it has already been
             # escaped.
             #$result=&escape($result);
-            # reply with result, append \n unless already there
-	    $result.="\n" unless ($result=~/\n$/);
             &reply("queryreply:$queryid:$result",$conserver);
         }
         # tidy up gracefully and finish
         #
         # close the database handle
 	$dbh->disconnect
-            or &logthis("<font color=blue>WARNING: Couldn't disconnect".
+            or &logthis("<font color='blue'>WARNING: Couldn't disconnect".
                         " from database  $DBI::errstr : $@</font>");
         # this exit is VERY important, otherwise the child will become
         # a producer of more and more children, forking yourself into
@@ -476,7 +474,7 @@ sub do_sql_query {
         #prepare and execute the query
         my $sth = $dbh->prepare($query);
         unless ($sth->execute()) {
-            &logthis('<font color=blue>'.
+            &logthis('<font color="blue">'.
                      'WARNING: Could not retrieve from database:'.
                      $sth->errstr().'</font>');
         } else {
@@ -910,7 +908,7 @@ sub HUNTSMAN {                      # si
     kill 'INT' => keys %children;
     my $execdir=$perlvar{'lonDaemons'};
     unlink("$execdir/logs/lonsql.pid");
-    &logthis("<font color=red>CRITICAL: Shutting down</font>");
+    &logthis("<font color='red'>CRITICAL: Shutting down</font>");
     $unixsock = "mysqlsock";
     my $port="$perlvar{'lonSockDir'}/$unixsock";
     unlink($port);
@@ -921,7 +919,7 @@ sub HUPSMAN {                      # sig
     local($SIG{CHLD}) = 'IGNORE';  # we're going to kill our children
     kill 'INT' => keys %children;
     close($server);                # free up socket
-    &logthis("<font color=red>CRITICAL: Restarting</font>");
+    &logthis("<font color='red'>CRITICAL: Restarting</font>");
     my $execdir=$perlvar{'lonDaemons'};
     $unixsock = "mysqlsock";
     my $port="$perlvar{'lonSockDir'}/$unixsock";
@@ -931,7 +929,7 @@ sub HUPSMAN {                      # sig
 
 sub DISCONNECT {
     $dbh->disconnect or 
-    &logthis("<font color=blue>WARNING: Couldn't disconnect from database ".
+    &logthis("<font color='blue'>WARNING: Couldn't disconnect from database ".
              " $DBI::errstr : $@</font>");
     exit;
 }