--- 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;