Return to lonsearchcat.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.26, 2001/03/15 19:27:12 | version 1.31, 2001/03/15 19:38:49 |
---|---|
Line 432 END | Line 432 END |
# ---------------------------------------------------- see if a field is filled | # ---------------------------------------------------- see if a field is filled |
sub filled { | sub filled { |
return /\S/; | my ($field)=@_; |
if ($field=~/\S/) { | |
return 1; | |
} | |
else { | |
return 0; | |
} | |
} | } |
# --------------------------------------------------- Performing a basic search | # --------------------------------------------------- Performing a basic search |