--- loncom/interface/lonnavmaps.pm	2006/10/23 22:48:27	1.392
+++ loncom/interface/lonnavmaps.pm	2007/01/05 06:43:34	1.396
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.392 2006/10/23 22:48:27 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.396 2007/01/05 06:43:34 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -149,7 +149,7 @@ sub getLinkForResource {
         if (defined($res)) {
 	    my $anchor;
 	    if ($res->is_page()) {
-		foreach (@$stack) { if (defined($_)) { $anchor = $_; }  }
+		foreach my $item (@$stack) { if (defined($item)) { $anchor = $item; }  }
 		$anchor=&escape($anchor->shown_symb());
 		return ($res->link(),$res->shown_symb(),$anchor);
 	    }
@@ -167,8 +167,8 @@ sub getLinkForResource {
     # (when we first recurse on a map, it puts an undefined resource
     # on the bottom because $self->{HERE} isn't defined yet, and we
     # want the src for the map anyhow)
-    foreach (@$stack) {
-        if (defined($_)) { $res = $_; }
+    foreach my $item (@$stack) {
+        if (defined($item)) { $res = $item; }
     }
 
     return ($res->link(),$res->shown_symb());
@@ -904,10 +904,10 @@ sub render_communication_status {
     
     if ($resource->getFeedback()) {
         my $feedback = $resource->getFeedback();
-        foreach (split(/\,/, $feedback)) {
-            if ($_) {
+        foreach my $msgid (split(/\,/, $feedback)) {
+            if ($msgid) {
                 $feedbackHTML .= '&nbsp;<a '.$target.' href="/adm/email?display='
-                    . &escape($_) . '">'
+                    . &escape($msgid) . '">'
                     . '<img alt="'.&mt('New Email').'" src="'.$location.'/feedback.gif" '
                     . 'border="0" /></a>';
             }
@@ -917,12 +917,12 @@ sub render_communication_status {
     if ($resource->getErrors()) {
         my $errors = $resource->getErrors();
         my $errorcount = 0;
-        foreach (split(/,/, $errors)) {
+        foreach my $msgid (split(/,/, $errors)) {
             last if ($errorcount>=10); # Only output 10 bombs maximum
-            if ($_) {
+            if ($msgid) {
                 $errorcount++;
                 $errorHTML .= '&nbsp;<a '.$target.' href="/adm/email?display='
-                    . &escape($_) . '">'
+                    . &escape($msgid) . '">'
                     . '<img alt="'.&mt('New Error').'" src="'.$location.'/bomb.gif" '
                     . 'border="0" /></a>';
             }
@@ -1126,9 +1126,9 @@ sub render {
     # marker
     my $filterHash = {};
     # Figure out what we're not displaying
-    foreach (split(/\,/, $env{"form.filter"})) {
-        if ($_) {
-            $filterHash->{$_} = "1";
+    foreach my $item (split(/\,/, $env{"form.filter"})) {
+        if ($item) {
+            $filterHash->{$item} = "1";
         }
     }
 
@@ -1901,10 +1901,10 @@ sub generate_email_discuss_status {
     my %lastread = &Apache::lonnet::dump('nohist_'.$cid.'_discuss',
                                         $env{'user.domain'},$env{'user.name'},'lastread');
     my %lastreadtime = ();
-    foreach (keys %lastread) {
-        my $key = $_;
-        $key =~ s/_lastread$//;
-        $lastreadtime{$key} = $lastread{$_};
+    foreach my $key (keys %lastread) {
+        my $shortkey = $key;
+        $shortkey =~ s/_lastread$//;
+        $lastreadtime{$shortkey} = $lastread{$key};
     }
 
     my %feedback=();
@@ -1914,22 +1914,36 @@ sub generate_email_discuss_status {
     
     foreach my $msgid (@keys) {
 	if ((!$emailstatus{$msgid}) || ($emailstatus{$msgid} eq 'new')) {
-	    my $plain=
-		&LONCAPA::unescape(&LONCAPA::unescape($msgid));
-	    if ($plain=~/ \[([^\]]+)\]\:/) {
-		my $url=$1;
-		if ($plain=~/\:Error \[/) {
-		    $error{$url}.=','.$msgid; 
-		} else {
-		    $feedback{$url}.=','.$msgid;
-		}
-	    }
+            my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid,
+                $symb,$error) = &Apache::lonmsg::unpackmsgid($msgid);
+            &Apache::lonenc::check_decrypt(\$symb); 
+            if (($fromcid ne '') && ($fromcid ne $cid)) {
+                next;
+            }
+            if (defined($symb)) {
+                if (defined($error) && $error == 1) {
+                    $error{$symb}.=','.$msgid;
+                } else {
+                    $feedback{$symb}.=','.$msgid;
+                }
+            } else {
+                my $plain=
+                    &LONCAPA::unescape(&LONCAPA::unescape($msgid));
+                if ($plain=~/ \[([^\]]+)\]\:/) {
+                    my $url=$1;
+                    if ($plain=~/\:Error \[/) {
+                        $error{$url}.=','.$msgid;
+                    } else {
+                        $feedback{$url}.=','.$msgid;
+                    }
+                }
+            }
 	}
     }
     
-    #url's of resources that have feedbacks
+    #symbs of resources that have feedbacks (will be urls pre-2.3)
     $self->{FEEDBACK} = \%feedback;
-    #or errors
+    #or errors (will be urls pre 2.3)
     $self->{ERROR_MSG} = \%error;
     $self->{DISCUSSION_TIME} = \%discussiontime;
     $self->{EMAIL_STATUS} = \%emailstatus;
@@ -2034,9 +2048,10 @@ sub last_post_time {
     return $self->{DISCUSSION_TIME}->{$ressymb};
 }
 
-sub unread_discussion {
+sub discussion_info {
     my $self = shift;
     my $symb = shift;
+    my $filter = shift;
 
     $self->get_discussion_data();
 
@@ -2048,12 +2063,10 @@ sub unread_discussion {
 
     my $prevread = $self->{LAST_READ}{$ressymb};
 
-    my $unreadcount = 0;
+    my $count = 0;
     my $hiddenflag = 0;
     my $deletedflag = 0;
-    my ($hidden,$deleted);
-
-    my %subjects;
+    my ($hidden,$deleted,%info);
 
     for (my $id=$version; $id>0; $id--) {
 	my $vkeys=$self->{DISCUSSION_DATA}{$id.':keys:'.$discsymb};
@@ -2069,18 +2082,24 @@ sub unread_discussion {
 		$deletedflag = 1;
 	    }
 	} else {
-	    if (($hidden !~/\.$id\./) && ($deleted !~/\.$id\./)
-		&& $prevread < $self->{DISCUSSION_DATA}{$id.':'.$discsymb.':timestamp'}) {
-		    $unreadcount++;
-		    $subjects{$unreadcount}=
-			$id.': '.$self->{DISCUSSION_DATA}{$id.':'.$discsymb.':subject'};
-		}
+	    if (($hidden !~/\.$id\./) && ($deleted !~/\.$id\./)) {
+                if ($filter eq 'unread') {
+		    if ($prevread >= $self->{DISCUSSION_DATA}{$id.':'.$discsymb.':timestamp'}) {
+                        next;
+                    }
+                }
+		$count++;
+		$info{$count}{'subject'} =
+		    $self->{DISCUSSION_DATA}{$id.':'.$discsymb.':subject'};
+                $info{$count}{'id'} = $id;
+                $info{$count}{'timestamp'} = $self->{DISCUSSION_DATA}{$id.':'.$discsymb.':timestamp'};
+            }
 	}
     }
     if (wantarray) {
-	return ($unreadcount,\%subjects);
+	return ($count,%info);
     }
-    return $unreadcount
+    return $count;
 }
 
 sub wrap_symb {
@@ -2111,23 +2130,48 @@ sub unwrap_symb {
 sub getFeedback { 
     my $self = shift;
     my $symb = shift;
+    my $source = shift;
 
     $self->generate_email_discuss_status();
 
     if (!defined($self->{FEEDBACK})) { return ""; }
     
-    return $self->{FEEDBACK}->{$symb};
+    my $feedback;
+    if ($self->{FEEDBACK}->{$symb}) {
+        $feedback = $self->{FEEDBACK}->{$symb};
+        if ($self->{FEEDBACK}->{$source}) {
+            $feedback .= ','.$self->{FEEDBACK}->{$source};
+        }
+    } else {
+        if ($self->{FEEDBACK}->{$source}) {
+            $feedback = $self->{FEEDBACK}->{$source};
+        }
+    }
+    return $feedback;
 }
 
 # Private method: Get the errors for that resource (by source).
 sub getErrors { 
     my $self = shift;
+    my $symb = shift;
     my $src = shift;
 
     $self->generate_email_discuss_status();
 
     if (!defined($self->{ERROR_MSG})) { return ""; }
-    return $self->{ERROR_MSG}->{$src};
+
+    my $errors;
+    if ($self->{ERROR_MSG}->{$symb}) {
+        $errors = $self->{ERROR_MSG}->{$symb};
+        if ($self->{ERROR_MSG}->{$src}) {
+            $errors .= ','.$self->{ERROR_MSG}->{$src};
+        }
+    } else {
+        if ($self->{ERROR_MSG}->{$src}) {
+            $errors = $self->{ERROR_MSG}->{$src};
+        }
+    }
+    return $errors;
 }
 
 =pod
@@ -3117,9 +3161,9 @@ sub next {
 
     # filter the next possibilities to remove things we've 
     # already seen.
-    foreach (@$nextUnfiltered) {
-        if (!defined($self->{ALREADY_SEEN}->{$_->{ID}})) {
-            push @$next, $_;
+    foreach my $item (@$nextUnfiltered) {
+        if (!defined($self->{ALREADY_SEEN}->{$item->{ID}})) {
+            push @$next, $item;
         }
     }
 
@@ -3835,13 +3879,15 @@ data was not extracted when the nav map
 Returns a false value if there hasn't been discussion otherwise returns
 unix timestamp of last time a discussion posting (or edit) was made.
 
-=item * B<unread_discussion>:
+=item * B<discussion_info>:
 
-returns in scalar context the count of the number of unread discussion
-postings
+optional argument is a filter (currently can be 'unread');
+returns in scalar context the count of the number of discussion postings.
 
 returns in list context both the count of postings and a hash ref
-containing the subjects of all unread postings
+containing information about the postings (subject, id, timestamp) in a hash.
+
+Default is to return counts for all postings.  However if called with a second argument set to 'unread', will return information about only unread postings.
 
 =item * B<getFeedback>:
 
@@ -3850,8 +3896,8 @@ for the resource, or the null string if
 email data was not extracted when the nav map was constructed. Usually
 used like this:
 
- for (split(/\,/, $res->getFeedback())) {
-    my $link = &escape($_);
+ for my $url (split(/\,/, $res->getFeedback())) {
+    my $link = &escape($url);
     ...
 
 and use the link as appropriate.
@@ -3868,23 +3914,25 @@ sub last_post_time {
     return $self->{NAV_MAP}->last_post_time($self->symb());
 }
 
-sub unread_discussion {
-    my $self = shift;
-    return $self->{NAV_MAP}->unread_discussion($self->symb());
+sub discussion_info {
+    my ($self,$filter) = @_;
+    return $self->{NAV_MAP}->discussion_info($self->symb(),$filter);
 }
 
 sub getFeedback {
     my $self = shift;
     my $source = $self->src();
+    my $symb = $self->symb();
     if ($source =~ /^\/res\//) { $source = substr $source, 5; }
-    return $self->{NAV_MAP}->getFeedback($source);
+    return $self->{NAV_MAP}->getFeedback($symb,$source);
 }
 
 sub getErrors {
     my $self = shift;
     my $source = $self->src();
+    my $symb = $self->symb();
     if ($source =~ /^\/res\//) { $source = substr $source, 5; }
-    return $self->{NAV_MAP}->getErrors($source);
+    return $self->{NAV_MAP}->getErrors($symb,$source);
 }
 
 =pod
@@ -4045,8 +4093,8 @@ sub extractParts {
 		$self->{PART_TYPE} = {};
 		return;
 	    }
-	    foreach (split(/\,/,$metadata)) {
-		if ($_ =~ /^(?:part|Task)_(.*)$/) {
+	    foreach my $entry (split(/\,/,$metadata)) {
+		if ($entry =~ /^(?:part|Task)_(.*)$/) {
 		    my $part = $1;
 		    # This floods the logs if it blows up
 		    if (defined($parts{$part})) {
@@ -4071,8 +4119,8 @@ sub extractParts {
 
 
         # Init the responseIdHash
-        foreach (@{$self->{PARTS}}) {
-            $responseIdHash{$_} = [];
+        foreach my $part (@{$self->{PARTS}}) {
+            $responseIdHash{$part} = [];
         }
 
         # Now, the unfortunate thing about this is that parts, part name, and
@@ -4152,13 +4200,13 @@ the completion information.
 Idiomatic usage of these two methods would probably look something
 like
 
- foreach ($resource->parts()) {
-    my $dateStatus = $resource->getDateStatus($_);
-    my $completionStatus = $resource->getCompletionStatus($_);
+ foreach my $part ($resource->parts()) {
+    my $dateStatus = $resource->getDateStatus($part);
+    my $completionStatus = $resource->getCompletionStatus($part);
 
     or
 
-    my $status = $resource->status($_);
+    my $status = $resource->status($part);
 
     ... use it here ...
  }