--- loncom/interface/lonsearchcat.pm	2001/03/15 19:23:10	1.25
+++ loncom/interface/lonsearchcat.pm	2001/03/15 19:27:12	1.26
@@ -430,12 +430,17 @@ END
     return OK;
 }
 
+# ---------------------------------------------------- see if a field is filled
+sub filled {
+    return /\S/;
+}
+
 # --------------------------------------------------- Performing a basic search
 sub basicsearch {
     my ($r,$envhash)=@_;
     my %ENV=%{$envhash};
 
-    unless (length($ENV{'form.basicexp'})) {
+    unless (&filled($ENV{'form.basicexp'})) {
 	&output_blank_field_error($r);
 	return OK;
     }