loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.114, 2004/08/10 18:01:25	version 1.115, 2004/08/10 18:25:53
Line 65 sub discussion_visible {	Line 65 sub discussion_visible {
}	}

sub list_discussion {	sub list_discussion {
my ($mode,$status,$symb,$ttarget,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($mode,$status,$symb)=@_;
my $outputtarget=$ENV{'form.grade_target'};	my $outputtarget=$ENV{'form.grade_target'};
if (not &discussion_visible($status)) { return ''; }	if (not &discussion_visible($status)) { return ''; }
my @bgcols = ("#cccccc","#eeeeee");	my @bgcols = ("#cccccc","#eeeeee");
Line 764 sub list_discussion {	Line 764 sub list_discussion {
$discussionitems[$alldiscussion{$_}]=~s/(<b>\|<\/b>\|<\/a>\|<a([^>]+)>)//g;	$discussionitems[$alldiscussion{$_}]=~s/(<b>\|<\/b>\|<\/a>\|<a([^>]+)>)//g;

$discussionitems[$alldiscussion{$_}]='<tex>\vskip 0 mm\noindent\makebox[2 cm][b]{\hrulefill}</tex>'.$discussionitems[$alldiscussion{$_}];	$discussionitems[$alldiscussion{$_}]='<tex>\vskip 0 mm\noindent\makebox[2 cm][b]{\hrulefill}</tex>'.$discussionitems[$alldiscussion{$_}];
if ($_ eq $showposts[-1]) {
$discussionitems[$alldiscussion{$_}].='<tex>\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\end{document}</tex>';
}
$discussion.=$discussionitems[$alldiscussion{$_}];	$discussion.=$discussionitems[$alldiscussion{$_}];
}	}
}	}