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 { |