loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.276, 2003/09/14 23:57:18	version 1.279, 2003/09/19 20:29:29
Line 175 sub xmlbegin {	Line 175 sub xmlbegin {
}	}

sub xmlend {	sub xmlend {
my ($discussiononly,$symb)=@_;	my $mode='xml';
my $discussion='';	my $status='OPEN';
if ($ENV{'request.course.id'}) {	if ($Apache::lonhomework::parsing_a_problem) {
my $crs='/'.$ENV{'request.course.id'};	$mode='problem';
if ($ENV{'request.course.sec'}) {	$status=$Apache::inputtags::status[-1];
$crs.='_'.$ENV{'request.course.sec'};
}
$crs=~s/\_/\//g;
$discussion=&Apache::lonfeedback::list_discussion
($crs,$symb,$discussiononly);
}	}
return $discussion.($discussiononly?'':'</html>');	return &Apache::lonfeedback::list_discussion().'</html>';
}	}

sub tokeninputfield {	sub tokeninputfield {
Line 496 sub inner_xmlparse {	Line 491 sub inner_xmlparse {
}	}

# Encode any high ASCII characters	# Encode any high ASCII characters
if (!$Apache::lonxml::prevent_entity_encode) {	# if (!$Apache::lonxml::prevent_entity_encode) {
$result=&HTML::Entities::encode($result,"\200-\377");	# $result=&HTML::Entities::encode($result,"\200-\377");
}	# }
if ($Apache::lonxml::redirection) {	if ($Apache::lonxml::redirection) {
$Apache::lonxml::outputstack['-1'] .= $result;	$Apache::lonxml::outputstack['-1'] .= $result;
} else {	} else {