--- loncom/imspackages/imsimportdocs.pm 2006/11/02 21:07:15 1.19
+++ loncom/imspackages/imsimportdocs.pm 2009/05/04 16:45:51 1.22
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: imsimportdocs.pm,v 1.19 2006/11/02 21:07:15 albertel Exp $
+# $Id: imsimportdocs.pm,v 1.22 2009/05/04 16:45:51 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -218,7 +218,7 @@ sub display_one {
-
+ |
|
Specify the Course Management system used to create the package.
@@ -250,7 +250,7 @@ Please choose the CMS used to create you
| |
-
+ |
|
Locate the IMS content package you wish to upload.
@@ -369,7 +369,7 @@ sub display_two {
|
-
+ |
|
Choose which content types you wish to import
@@ -439,7 +439,7 @@ ENDBLOCK
|
|
-
+ |
|
Choose display options for listing of contents of top level of package.
@@ -641,12 +641,12 @@ sub display_three {
for (my $i=0; $i<@topurls; $i++) {
my $url = &unescape($topurls[$i]);
my $name = &unescape($topnames[$i]);
- push @imports, $name, $url;
+ push(@imports, [$name, $url]);
}
} elsif ($toplevel eq 'newfolder') {
my $url = &unescape("/uploaded/$cdom/$crs/$timenow/sequences/Top.sequence");
my $name = &unescape("$env{'form.foldername'}");
- push @imports, $name, $url;
+ push(@imports, [$name, $url]);
}
my $errtext='';
my $fatal=0;
@@ -657,7 +657,7 @@ sub display_three {
}
my ($errtext,$fatal)=&Apache::londocs::group_import($crs,$cdom,$folder,'sequence','imsimport',@imports);
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}/) {
@@ -673,7 +673,7 @@ sub display_three {
|
-
+ |
|
Your import is complete
|