![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.159, 2003/12/15 19:23:03 | version 1.159.2.1, 2004/01/13 18:54:07 |
|---|---|
| Line 2472 sub record_sep { | Line 2472 sub record_sep { |
| } | } |
| } elsif ($ENV{'form.upfiletype'} eq 'tab') { | } elsif ($ENV{'form.upfiletype'} eq 'tab') { |
| my $i=0; | my $i=0; |
| foreach (split(/\t+/,$record)) { | foreach (split(/\t/,$record)) { |
| my $field=$_; | my $field=$_; |
| $field=~s/^(\"|\')//; | $field=~s/^(\"|\')//; |
| $field=~s/(\"|\')$//; | $field=~s/(\"|\')$//; |