loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.526, 2011/12/06 16:30:19	version 1.528, 2011/12/28 13:15:00
Line 210 sub xmlend {	Line 210 sub xmlend {
my $discussion;	my $discussion;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['LONCAPA_INTERNAL_no_discussion']);	['LONCAPA_INTERNAL_no_discussion']);
if (! exists($env{'form.LONCAPA_INTERNAL_no_discussion'}) \|\|	if (
$env{'form.LONCAPA_INTERNAL_no_discussion'} ne 'true') {	( (!exists($env{'form.LONCAPA_INTERNAL_no_discussion'}))
	\|\| ($env{'form.LONCAPA_INTERNAL_no_discussion'} ne 'true')
	)
	&& ($env{'form.inhibitmenu'} ne 'yes')
	) {
$discussion=&Apache::lonfeedback::list_discussion($mode,$status);	$discussion=&Apache::lonfeedback::list_discussion($mode,$status);
}	}
if ($target eq 'tex') {	if ($target eq 'tex') {
Line 301 sub xmlparse {	Line 305 sub xmlparse {
&clean_safespace($safeeval);	&clean_safespace($safeeval);

if (@script_var_displays) {	if (@script_var_displays) {
$finaloutput .= join('',@script_var_displays);	my $scriptoutput = join('',@script_var_displays);
	$finaloutput=~s{(</body>\s</html>)\s$}{$scriptoutput$1}s;
undef(@script_var_displays);	undef(@script_var_displays);
}	}
&init_state();	&init_state();