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