--- loncom/interface/lonfeedback.pm	2004/05/05 21:04:14	1.80
+++ loncom/interface/lonfeedback.pm	2004/05/05 23:04:57	1.81
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.80 2004/05/05 21:04:14 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.81 2004/05/05 23:04:57 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -37,7 +37,7 @@ use Apache::lontexconvert();
 use Apache::lonlocal;
 
 sub list_discussion {
-    my ($mode,$status,$symb,$previous)=@_;
+    my ($mode,$status,$symb)=@_;
 #    &Apache::lonnet::logthis("status is $status");
     if (!($status eq 'CAN_ANSWER' || $status eq 'CANNOT_ANSWER'
 	  || $status eq 'OPEN')) {
@@ -71,9 +71,13 @@ sub list_discussion {
     my %dischash = &Apache::lonnet::get('nohist_'.$ENV{'request.course.id'}.'_discuss',[$lastkey,$showkey,$visitkey],$ENV{'user.domain'},$ENV{'user.name'});
     my $showonlyunread = 0;
     my $prevread = 0;
+    my $previous = 0;
     my $visit = 0;
     my $newpostsflag = 0;
 
+# Retain identification of "NEW" posts identified in last display, if continuing 'previous' browsing of posts.
+    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['previous']);
+    $previous = $ENV{'form.previous'};
     if ($previous > 0) {
         $prevread = $previous;
     } elsif (defined($dischash{$lastkey})) {