--- 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 { -   + 1     Specify the Course Management system used to create the package.   @@ -250,7 +250,7 @@ Please choose the CMS used to create you   -   + 2     Locate the IMS content package you wish to upload.   @@ -369,7 +369,7 @@ sub display_two { - + 3    Choose which content types you wish to import @@ -439,7 +439,7 @@ ENDBLOCK  

- + 4    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 { - + 5    Your import is complete