--- 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 {
-
+
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
-
+
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 {
-
+
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.
@@ -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 {