loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.545, 2013/12/03 16:39:47	version 1.546, 2014/02/06 17:14:33
Line 306 sub xmlparse {	Line 306 sub xmlparse {
&clean_safespace($safeeval);	&clean_safespace($safeeval);

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

sub add_script_result {	sub add_script_result {
my ($display) = @_;	my ($display) = @_;
push(@script_var_displays, $display);	if ($display ne '') {
	push(@script_var_displays, $display);
	}
}	}

#	#