![]() ![]() | ![]() |
version 1.29, 2001/03/15 19:35:31 | 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 1; | my ($field)=@_; |
if (/\S/) { | if ($field=~/\S/) { |
return 1; | return 1; |
} | } |
else { | else { |