loncom/imspackages/imsimportdocs.pm - diff

Return to imsimportdocs.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.19, 2006/11/02 21:07:15	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;
Line 657 sub display_three {	Line 657 sub display_three {
}	}
my ($errtext,$fatal)=&Apache::londocs::group_import($crs,$cdom,$folder,'sequence','imsimport',@imports);	my ($errtext,$fatal)=&Apache::londocs::group_import($crs,$cdom,$folder,'sequence','imsimport',@imports);
if ($fatal) {	if ($fatal) {
print STDERR "Fatal error during group_import\n";	&Apache::lonnet::logthis("Fatal error during group_import.");
}	}
}	}
if ($tempdir =~ m/^\/home\/httpd\/perl\/tmp\/$crs\/\d{10}/) {	if ($tempdir =~ m/^\/home\/httpd\/perl\/tmp\/$crs\/\d{10}/) {