Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.170, 2004/01/02 21:00:56 | version 1.171, 2004/01/13 15:48:25 |
---|---|
Line 2600 sub record_sep { | Line 2600 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/(\"|\')$//; |