version 1.503, 2007/01/23 20:00:38
|
version 1.505, 2007/01/29 20:17:55
|
Line 5394 sub record_sep {
|
Line 5394 sub record_sep {
|
} else { |
} else { |
my @allfields; |
my @allfields; |
if ($env{'form.upfiletype'} eq 'semisv') { |
if ($env{'form.upfiletype'} eq 'semisv') { |
@allfields=split(/;/,$record); |
@allfields=split(/;/,$record,-1); |
} else { |
} else { |
@allfields=split(/\,/,$record); |
@allfields=split(/\,/,$record,-1); |
} |
} |
my $i=0; |
my $i=0; |
my $j; |
my $j; |
Line 6564 sub group_term {
|
Line 6564 sub group_term {
|
|
|
sub icon { |
sub icon { |
my ($file)=@_; |
my ($file)=@_; |
my $curfext = (split(/\./,$file))[-1]; |
my $curfext = lc((split(/\./,$file))[-1]); |
my $iconname=$Apache::lonnet::perlvar{'lonIconsURL'}.'/unknown.gif'; |
my $iconname=$Apache::lonnet::perlvar{'lonIconsURL'}.'/unknown.gif'; |
my $embstyle = &Apache::loncommon::fileembstyle($curfext); |
my $embstyle = &Apache::loncommon::fileembstyle($curfext); |
if (!(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn')) { |
if (!(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn')) { |