Return to lonsearchcat.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.28, 2001/03/15 19:34:37 | 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 { |
if (/\S/) { | my ($field)=@_; |
if ($field=~/\S/) { | |
return 1; | return 1; |
} | } |
else { | else { |