version 1.80, 2004/05/05 21:04:14
|
version 1.81, 2004/05/05 23:04:57
|
Line 37 use Apache::lontexconvert();
|
Line 37 use Apache::lontexconvert();
|
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
sub list_discussion { |
sub list_discussion { |
my ($mode,$status,$symb,$previous)=@_; |
my ($mode,$status,$symb)=@_; |
# &Apache::lonnet::logthis("status is $status"); |
# &Apache::lonnet::logthis("status is $status"); |
if (!($status eq 'CAN_ANSWER' || $status eq 'CANNOT_ANSWER' |
if (!($status eq 'CAN_ANSWER' || $status eq 'CANNOT_ANSWER' |
|| $status eq 'OPEN')) { |
|| $status eq 'OPEN')) { |
Line 71 sub list_discussion {
|
Line 71 sub list_discussion {
|
my %dischash = &Apache::lonnet::get('nohist_'.$ENV{'request.course.id'}.'_discuss',[$lastkey,$showkey,$visitkey],$ENV{'user.domain'},$ENV{'user.name'}); |
my %dischash = &Apache::lonnet::get('nohist_'.$ENV{'request.course.id'}.'_discuss',[$lastkey,$showkey,$visitkey],$ENV{'user.domain'},$ENV{'user.name'}); |
my $showonlyunread = 0; |
my $showonlyunread = 0; |
my $prevread = 0; |
my $prevread = 0; |
|
my $previous = 0; |
my $visit = 0; |
my $visit = 0; |
my $newpostsflag = 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) { |
if ($previous > 0) { |
$prevread = $previous; |
$prevread = $previous; |
} elsif (defined($dischash{$lastkey})) { |
} elsif (defined($dischash{$lastkey})) { |