--- loncom/interface/lonsearchcat.pm	2001/03/15 19:27:12	1.26
+++ loncom/interface/lonsearchcat.pm	2001/03/15 19:38:49	1.31
@@ -432,7 +432,13 @@ END
 
 # ---------------------------------------------------- see if a field is filled
 sub filled {
-    return /\S/;
+    my ($field)=@_;
+    if ($field=~/\S/) {
+	return 1;
+    }
+    else {
+	return 0;
+    }
 }
 
 # --------------------------------------------------- Performing a basic search