Return to londropadd.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.20, 2002/03/06 22:34:06 | version 1.21, 2002/04/03 16:45:25 |
---|---|
Line 129 sub record_sep { | Line 129 sub record_sep { |
if ($ENV{'form.upfiletype'} eq 'xml') { | if ($ENV{'form.upfiletype'} eq 'xml') { |
} elsif ($ENV{'form.upfiletype'} eq 'space') { | } elsif ($ENV{'form.upfiletype'} eq 'space') { |
my $i=0; | my $i=0; |
foreach (split(/\s+/,$record) { | foreach (split(/\s+/,$record)) { |
my $field=$_; | my $field=$_; |
$field=~s/^(\"|\')//; | $field=~s/^(\"|\')//; |
$field=~s/(\"|\')$//; | $field=~s/(\"|\')$//; |