version 1.18, 2006/05/30 12:45:50
|
version 1.21, 2007/08/21 18:22:41
|
Line 34 use Apache::loncommon;
|
Line 34 use Apache::loncommon;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::imsprocessor; |
use Apache::imsprocessor; |
use LONCAPA::Configuration; |
use LONCAPA::Configuration; |
|
use LONCAPA::map(); |
use lib '/home/httpd/lib/perl/'; |
use lib '/home/httpd/lib/perl/'; |
use LONCAPA; |
use LONCAPA; |
|
|
Line 640 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; |
($errtext,$fatal)= &Apache::londocs::mapread($crs,$cdom,$folder.'.sequence'); |
($errtext,$fatal)= &Apache::londocs::mapread($crs,$cdom,$folder.'.sequence'); |
if ($#Apache::lonratedt::order<1) { |
if ($#LONCAPA::map::order<1) { |
$Apache::lonratedt::order[0]=1; |
$LONCAPA::map::order[0]=1; |
$Apache::lonratedt::resources[1]=''; |
$LONCAPA::map::resources[1]=''; |
} |
} |
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}/) { |