--- loncom/interface/lonnavmaps.pm	2003/01/10 18:45:30	1.124
+++ loncom/interface/lonnavmaps.pm	2003/03/20 20:40:42	1.129.2.2
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.124 2003/01/10 18:45:30 bowersj2 Exp $
+# $Id: lonnavmaps.pm,v 1.129.2.2 2003/03/20 20:40:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -403,7 +403,7 @@ 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 
@@ -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 = "<img src=\"/adm/lonIcons/html.gif\" alt=\"\" border=\"0\" />";
                 if ($curRes->is_problem()) { 
-                    if ($part eq "0" || $condensed) {
+                    if ($part eq "" || $condensed) {
                         $icon = '<img src="/adm/lonIcons/problem.gif" alt="" border=\"0\" />'; 
                     } 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)';
                 }
 
@@ -686,10 +685,10 @@ sub real_handler {
         $r->print('<script>location += "#curloc";</script>');
     }
 
-    $r->print("</body></html>");
-
     $navmap->untieHashes();
 
+    $r->print("</body></html>");
+
     return OK;
 }
 
@@ -999,11 +998,11 @@ sub new {
         return undef;
     }
 
+    $self->{HASH_TIED} = 1;
     $self->{NAV_HASH} = \%navmaphash;
     $self->{PARM_HASH} = \%parmhash;
 
     bless($self);
-    $self->untieHashes();
         
     return $self;
 }
@@ -1155,7 +1154,7 @@ sub DESTROY {
     $self->untieHashes();
 }
 
-# Does the given resource (as a symb string) have
+# Private method: Does the given resource (as a symb string) have
 # current discussion? Returns 0 if chat/mail data not extracted.
 sub hasDiscussion {
     my $self = shift;
@@ -1167,7 +1166,7 @@ sub hasDiscussion {
            $self->{LAST_CHECK};
 }
 
-# Does the given resource (as a symb string) have
+# Private method: Does the given resource (as a symb string) have
 # current feedback? Returns the string in the feedback hash, which
 # will be false if it does not exist.
 sub getFeedback { 
@@ -1179,6 +1178,7 @@ sub getFeedback {
     return $self->{FEEDBACK}->{$symb};
 }
 
+# Private method: Get the errors for that resource (by source).
 sub getErrors { 
     my $self = shift;
     my $src = shift;
@@ -1678,7 +1678,7 @@ sub next {
     # If this is a blank resource, don't actually return it.
     # Should you ever find you need it, make sure to add an option to the code
     #  that you can use; other things depend on this behavior.
-    if (!$self->{HERE}->src()) {
+    if (!$self->{HERE}->src() || !$self->{HERE}->browsePriv()) {
         return $self->next();
     }
 
@@ -2253,7 +2253,7 @@ sub hasDiscussion {
 sub getFeedback {
     my $self = shift;
     my $source = $self->src();
-    if ($source !~ /^\/res\//) { $source = substr $source, 5; }
+    if ($source =~ /^\/res\//) { $source = substr $source, 5; }
     return $self->{NAV_MAP}->getFeedback($source);
 }
 
@@ -2287,14 +2287,16 @@ sub countParts {
     my $self = shift;
     
     my $parts = $self->parts();
+    my $delta = 0;
+    for my $part (@$parts) {
+        if ($part eq '0') { $delta--; }
+    }
 
     if ($self->{RESOURCE_ERROR}) {
         return 0;
     }
 
-    if (scalar(@{$parts}) < 2) { return 1;}
-
-    return scalar(@{$parts}) - 1;
+    return scalar(@{$parts}) + $delta;
 }
 
 # Private function: Extracts the parts information and saves it
@@ -2308,7 +2310,7 @@ sub extractParts {
 
     # Retrieve part count, if this is a problem
     if ($self->is_problem()) {
-        my $metadata = &Apache::lonnet::metadata($self->src(), 'allpossiblekeys');
+        my $metadata = &Apache::lonnet::metadata($self->src(), 'packages');
         if (!$metadata) {
             $self->{RESOURCE_ERROR} = 1;
             $self->{PARTS} = [];
@@ -2316,7 +2318,7 @@ sub extractParts {
         }
         
         foreach (split(/\,/,$metadata)) {
-            if ($_ =~ /^parameter\_(.*)\_opendate$/) {
+            if ($_ =~ /^part_(.*)$/) {
                 push @{$self->{PARTS}}, $1;
             }
         }
@@ -2617,16 +2619,7 @@ sub getNext {
         my $next = $choice->goesto();
         $next = $self->{NAV_MAP}->getById($next);
 
-        # Don't remember it if the student doesn't have browse priviledges
-        # future note: this may properly belong in the client of the resource
-        my $browsePriv = $self->{BROWSE_PRIV};
-        if (!defined($browsePriv)) {
-            $browsePriv = &Apache::lonnet::allowed('bre', $self->src);
-            $self->{BROWSE_PRIV} = $browsePriv;
-        }
-        if (!($browsePriv ne '2' && $browsePriv ne 'F')) {
-            push @branches, $next;
-        }
+        push @branches, $next;
     }
     return \@branches;
 }
@@ -2640,20 +2633,20 @@ sub getPrevious {
         my $prev = $choice->comesfrom();
         $prev = $self->{NAV_MAP}->getById($prev);
 
-        # Don't remember it if the student doesn't have browse priviledges
-        # future note: this may properly belong in the client of the resource
-        my $browsePriv = $self->{BROWSE_PRIV};
-        if (!defined($browsePriv)) {
-            $browsePriv = &Apache::lonnet::allowed('bre', $self->src);
-            $self->{BROWSE_PRIV} = $browsePriv;
-        }
-        if (!($browsePriv ne '2' && $browsePriv ne 'F')) {
-            push @branches, $prev;
-        }
+        push @branches, $prev;
     }
     return \@branches;
 }
 
+sub browsePriv {
+    my $self = shift;
+    if (defined($self->{BROWSE_PRIV})) {
+        return $self->{BROWSE_PRIV};
+    }
+
+    $self->{BROWSE_PRIV} = &Apache::lonnet::allowed('bre', $self->src());
+}
+
 =pod
 
 =back