--- loncom/imspackages/imsimport.pm 2009/05/04 16:45:51 1.30
+++ loncom/imspackages/imsimport.pm 2009/08/17 03:52:09 1.32
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: imsimport.pm,v 1.30 2009/05/04 16:45:51 bisitz Exp $
+# $Id: imsimport.pm,v 1.32 2009/08/17 03:52:09 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -299,7 +299,7 @@ sub display_one {
-
+
'."\n".
@@ -380,7 +380,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}}) {
@@ -526,7 +526,7 @@ sub display_three {
foreach my $area (@{$areas}) {
if (defined($env{"form.$area"}) ) {
- if ($cms eq 'angel' && $area eq 'doc') {
+ if ($cms eq 'angel5' && $area eq 'doc') {
foreach (@{$$cmsmap{$cms}{$area}}) {
$importareas{$_} = 1;
}
@@ -599,7 +599,7 @@ sub display_three {
$r->print("
' + .&mt('Co-Author [_1]',$uname.':'.$udom) + .'
' ); } if ($env{'form.phase'} eq 'two') {