![[BACK]](/icons/back.gif){kind=icon}
Return to lonsearchcat.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to lonsearchcat.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.30, 2001/03/15 19:36:42 | 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 { |