--- loncom/interface/lonsearchcat.pm	2001/03/15 19:35:31	1.29
+++ loncom/interface/lonsearchcat.pm	2001/03/15 19:38:49	1.31
@@ -432,8 +432,8 @@ END
 
 # ---------------------------------------------------- see if a field is filled
 sub filled {
-    return 1;
-    if (/\S/) {
+    my ($field)=@_;
+    if ($field=~/\S/) {
 	return 1;
     }
     else {