--- loncom/interface/lonnavmaps.pm 2003/05/29 17:39:41 1.194
+++ loncom/interface/lonnavmaps.pm 2003/06/10 20:07:58 1.198
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.194 2003/05/29 17:39:41 bowersj2 Exp $
+# $Id: lonnavmaps.pm,v 1.198 2003/06/10 20:07:58 bowersj2 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -966,6 +966,10 @@ sub render_communication_status {
}
}
+ if ($params->{'multipart'} && $part != '0') {
+ $discussionHTML = $feedbackHTML = $errorHTML = '';
+ }
+
return "
$discussionHTML$feedbackHTML$errorHTML | ";
}
@@ -1021,8 +1025,6 @@ sub render_long_status {
$result .= '(randomly select ' . $resource->randompick() .')';
}
- $result .= " \n";
-
return $result;
}
@@ -1413,8 +1415,13 @@ sub render {
@parts = ($parts[0]);
$args->{'condensed'} = 1;
}
-
}
+ # Multipart problem with one part: always "condense" (happens
+ # to match the desirable behavior)
+ if ($curRes->countParts() == 1) {
+ @parts = ($parts[0]);
+ $args->{'condensed'} = 1;
+ }
}
}
@@ -1588,7 +1595,14 @@ sub new {
return undef;
}
- $self->{NAV_HASH} = \%navmaphash;
+ # try copying into memory
+ my %tmpnavhash;
+ while (my ($k, $v) = each(%navmaphash)) {
+ $tmpnavhash{$k} = $v;
+ }
+ untie %navmaphash;
+
+ $self->{NAV_HASH} = \%tmpnavhash;
$self->{PARM_HASH} = \%parmhash;
$self->{INITED} = 0;