--- loncom/imspackages/imsimportdocs.pm 2007/08/02 01:33:31 1.20 +++ loncom/imspackages/imsimportdocs.pm 2009/08/17 03:52:09 1.23 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: imsimportdocs.pm,v 1.20 2007/08/02 01:33:31 albertel Exp $ +# $Id: imsimportdocs.pm,v 1.23 2009/08/17 03:52:09 raeburn 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.   @@ -237,7 +237,7 @@ Please choose the CMS used to create you - + @@ -250,7 +250,7 @@ Please choose the CMS used to create you   -   + 2     Locate the IMS content package you wish to upload.   @@ -346,7 +346,7 @@ sub display_two { $count{$area} ++; } } - } elsif ($cms eq 'angel') { + } elsif ($cms eq 'angel5') { foreach my $area (keys %{$cmsmap{$cms}}) { if ($area eq 'doc') { if (grep/^$resources{$res}{type}$/,@{$cmsmap{$cms}{doc}}) { @@ -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. @@ -553,7 +553,7 @@ sub display_three { foreach my $area (@{$areas}) { if (defined($env{"form.$area"}) && ($env{'form.'.$area} ne '')) { - if ($cms eq 'angel' && $area eq 'doc') { + if ($cms eq 'angel5' && $area eq 'doc') { foreach (@{$cmsmap{$cms}{$area}}) { $importareas{$_} = 1; } @@ -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; @@ -673,7 +673,7 @@ sub display_three { - + 5    Your import is complete