version 1.20, 2007/08/02 01:33:31
|
version 1.21, 2007/08/21 18:22:41
|
Line 641 sub display_three {
|
Line 641 sub display_three {
|
for (my $i=0; $i<@topurls; $i++) { |
for (my $i=0; $i<@topurls; $i++) { |
my $url = &unescape($topurls[$i]); |
my $url = &unescape($topurls[$i]); |
my $name = &unescape($topnames[$i]); |
my $name = &unescape($topnames[$i]); |
push @imports, $name, $url; |
push(@imports, [$name, $url]); |
} |
} |
} elsif ($toplevel eq 'newfolder') { |
} elsif ($toplevel eq 'newfolder') { |
my $url = &unescape("/uploaded/$cdom/$crs/$timenow/sequences/Top.sequence"); |
my $url = &unescape("/uploaded/$cdom/$crs/$timenow/sequences/Top.sequence"); |
my $name = &unescape("$env{'form.foldername'}"); |
my $name = &unescape("$env{'form.foldername'}"); |
push @imports, $name, $url; |
push(@imports, [$name, $url]); |
} |
} |
my $errtext=''; |
my $errtext=''; |
my $fatal=0; |
my $fatal=0; |