version 1.66, 2003/11/03 23:23:34
|
version 1.67, 2003/11/04 03:32:55
|
Line 73 sub list_discussion {
|
Line 73 sub list_discussion {
|
my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'}, |
my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
|
my $visible=0; |
if ($contrib{'version'}) { |
if ($contrib{'version'}) { |
for (my $id=1;$id<=$contrib{'version'};$id++) { |
for (my $id=1;$id<=$contrib{'version'};$id++) { |
my $idx=$id; |
my $idx=$id; |
my $hidden=($contrib{'hidden'}=~/\.$idx\./); |
my $hidden=($contrib{'hidden'}=~/\.$idx\./); |
my $deleted=($contrib{'deleted'}=~/\.$idx\./); |
my $deleted=($contrib{'deleted'}=~/\.$idx\./); |
unless ((($hidden) && (!$seeid)) || ($deleted)) { |
unless ((($hidden) && (!$seeid)) || ($deleted)) { |
|
$visible++; |
my $message=$contrib{$idx.':message'}; |
my $message=$contrib{$idx.':message'}; |
$message=~s/\n/\<br \/\>/g; |
$message=~s/\n/\<br \/\>/g; |
$message=&Apache::lontexconvert::msgtexconverted($message); |
$message=&Apache::lontexconvert::msgtexconverted($message); |
Line 148 sub list_discussion {
|
Line 150 sub list_discussion {
|
} |
} |
} |
} |
} |
} |
my $discussion='<hr />'; |
my $discussion=''; |
foreach (sort { $a <=> $b } keys %discussionitems) { |
if ($visible) { |
$discussion.=$discussionitems{$_}; |
$discussion.='<table bgcolor="#AAAAAA" cellpadding="2" cellspacing="2" border="0">'; |
|
foreach (sort { $a <=> $b } keys %discussionitems) { |
|
$discussion.="\n<tr bgcolor='#CCCCCC'><td>".$discussionitems{$_}. |
|
"</td></tr>"; |
|
} |
|
$discussion.='</table>'; |
} |
} |
if ($discussiononly) { |
if ($discussiononly) { |
$discussion.=(<<ENDDISCUSS); |
$discussion.=(<<ENDDISCUSS); |