loncom/imspackages/imsimportdocs.pm - diff

Return to imsimportdocs.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

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;