--- loncom/interface/lonsearchcat.pm	2001/03/15 19:32:31	1.27
+++ loncom/interface/lonsearchcat.pm	2001/03/15 19:34:37	1.28
@@ -432,7 +432,12 @@ END
 
 # ---------------------------------------------------- see if a field is filled
 sub filled {
-    return ($_=~/\S/);
+    if (/\S/) {
+	return 1;
+    }
+    else {
+	return 0;
+    }
 }
 
 # --------------------------------------------------- Performing a basic search