loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.334, 2004/08/10 18:03:30	version 1.335, 2004/08/10 18:25:53
Line 165 sub xmlbegin {	Line 165 sub xmlbegin {
}	}

sub xmlend {	sub xmlend {
my ($target,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$parser)=@_;
my $mode='xml';	my $mode='xml';
my $status='OPEN';	my $status='OPEN';
if ($Apache::lonhomework::parsing_a_problem) {	if ($Apache::lonhomework::parsing_a_problem) {
$mode='problem';	$mode='problem';
$status=$Apache::inputtags::status[-1];	$status=$Apache::inputtags::status[-1];
}	}
my $discussion=&Apache::lonfeedback::list_discussion($mode,$status,'',$target,$tagstack,$parstack,$parser,$safeeval);	my $discussion=&Apache::lonfeedback::list_discussion($mode,$status);
if ($target eq 'tex') {	if ($target eq 'tex') {
	$discussion.='<tex>\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\end{document}</tex>';
&Apache::lonxml::newparser($parser,\$discussion,'');	&Apache::lonxml::newparser($parser,\$discussion,'');
return '';	return '';
} else {	} else {