--- loncom/interface/lonnavmaps.pm 2003/01/14 01:42:52 1.127 +++ loncom/interface/lonnavmaps.pm 2003/03/20 22:30:38 1.129.2.3 @@ -2,7 +2,7 @@ # The LearningOnline Network with CAPA # Navigate Maps Handler # -# $Id: lonnavmaps.pm,v 1.127 2003/01/14 01:42:52 bowersj2 Exp $ +# $Id: lonnavmaps.pm,v 1.129.2.3 2003/03/20 22:30:38 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -403,13 +403,13 @@ sub real_handler { # just display first if (!$curRes->opendate("0")) { # no parts are open, display as one part - @parts = ("0"); + @parts = (); $condensed = 1; } else { # Otherwise, only display part 0 if we want to # attach feedback or email information to it if ($curRes->hasDiscussion() || $curRes->getFeedback()) { - shift @parts; + #shift @parts; } else { # Now, we decide whether to condense the # parts due to similarity @@ -441,23 +441,19 @@ sub real_handler { if (($statusAllSame && defined($condenseStatuses{$status})) || ($dueAllSame && $status == $curRes->OPEN && $statusAllSame)|| ($openAllSame && $status == $curRes->OPEN_LATER && $statusAllSame) ){ - @parts = ($parts[1]); + @parts = (); $condensed = 1; } } } } - } else { - $parts[0] = "0"; # this is to get past foreach loop below - # you can consider a non-problem resource as a resource - # with only one part without loss, and it simplifies the looping } # Is it a multipart problem with a single part, now in # @parts with "0" filtered out? If so, 'forget' it's a multi-part # problem and treat it like a single-part problem. - if ( scalar(@parts) == 1 ) { + if ( scalar(@parts) == 0 ) { $multipart = 0; } @@ -466,13 +462,16 @@ sub real_handler { # status, but if it's multipart, we're lost, since we can't # retreive the metadata to count the parts if ($curRes->{RESOURCE_ERROR}) { - @parts = ("0"); + @parts = (); } # Step Two: Print the actual data. # For each part we intend to display... - foreach my $part (@parts) { + foreach my $part ('', @parts) { + if ($part eq '0') { + next; + } my $nonLinkedText = ""; # unlinked stuff after title @@ -507,7 +506,7 @@ sub real_handler { my $icon = ""; if ($curRes->is_problem()) { - if ($part eq "0" || $condensed) { + if ($part eq "" || $condensed) { $icon = ''; } else { $icon = $indentString; @@ -584,11 +583,11 @@ sub real_handler { $displayedHereMarker = 1; } - if ($curRes->is_problem() && $part ne "0" && !$condensed) { + if ($curRes->is_problem() && $part ne "" && !$condensed) { $partLabel = " (Part $part)"; $title = ""; } - if ($multipart && $condensed) { + if ($condensed && $curRes->countParts() > 1) { $nonLinkedText .= ' (' . $curRes->countParts() . ' parts)'; } @@ -688,7 +687,7 @@ sub real_handler { $navmap->untieHashes(); - $r->print("