--- loncom/imspackages/imsimportdocs.pm 2007/08/21 18:22:41 1.21
+++ 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.21 2007/08/21 18:22:41 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;
}
@@ -673,7 +673,7 @@ sub display_three {