[LON-CAPA-cvs] cvs: loncom / lond

[www]

www		Mon Aug 11 17:15:26 2003 EDT

  Modified files:              
    /loncom	lond 
  Log:
  $regexp would never be "." ... one of these days in the far future, lond is
  going to "use strict".
  
  Worked nevertheless, since the query was only put in to avoid useless
  evaluation of regular expressions.
  
  
Index: loncom/lond
diff -u loncom/lond:1.132 loncom/lond:1.133
--- loncom/lond:1.132	Mon Jul 14 09:43:42 2003
+++ loncom/lond	Mon Aug 11 17:15:26 2003
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.132 2003/07/14 13:43:42 matthew Exp $
+# $Id: lond,v 1.133 2003/08/11 21:15:26 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -73,7 +73,7 @@
 my $status='';
 my $lastlog='';
 
-my $VERSION='$Revision: 1.132 $'; #' stupid emacs
+my $VERSION='$Revision: 1.133 $'; #' stupid emacs
 my $remoteVERSION;
 my $currenthostid;
 my $currentdomainid;
@@ -1556,7 +1556,7 @@
                            while (($key,$value) = each(%hash)) {
                                my ($descr,$lasttime)=split(/\:/,$value);
                                if ($lasttime<$since) { next; }
-                               if ($regexp eq '.') {
+                               if ($description eq '.') {
                                    $qresult.=$key.'='.$descr.'&';
                                } else {
                                    my $unescapeVal = &unescape($descr);