loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/scripttag.pm between versions 1.109 and 1.112

version 1.109, 2004/02/12 17:34:24	version 1.112, 2004/04/15 20:24:34
Line 137 sub start_script {	Line 137 sub start_script {
my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser);	my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser);
}	}
} else {	} else {
if ($target ne "meta") {
$result = $token->[4];
my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser);	my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser);
$result.=$bodytext;	if ($target ne "meta") {
}	$result = $token->[4];
	$result.=$bodytext;
	}
}	}
return $result;	return $result;
}	}
Line 183 sub start_display {	Line 183 sub start_display {
}	}
$Apache::lonxml::post_evaluate=0;	$Apache::lonxml::post_evaluate=0;
} elsif ($target eq "edit" ) {	} elsif ($target eq "edit" ) {
my $bodytext=&Apache::lonxml::get_all_text_unblanced("/display",$parser);	my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/display",$parser);
#$result =	#$result =
# "<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />";	# "<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />";
#$result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1);	#$result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1);
Line 482 sub end_comment {	Line 482 sub end_comment {

sub xmlparse {	sub xmlparse {
my ($string) = @_;	my ($string) = @_;
# &Apache::lonxml::debug("Got $string");	&Apache::lonxml::debug("xmlparse recursion starting with $string");
	if ($string eq '&xmlparse') { return '&xmlparse'; }
my ($target,$token,$tagstack,$parstack,$oldparser,$safeeval,$style)=	my ($target,$token,$tagstack,$parstack,$oldparser,$safeeval,$style)=
@Apache::scripttag::parser_env;	@Apache::scripttag::parser_env;
my @parser;	my @parser;
Line 490 sub xmlparse {	Line 491 sub xmlparse {
my $result=&Apache::lonxml::inner_xmlparse($target,$tagstack,	my $result=&Apache::lonxml::inner_xmlparse($target,$tagstack,
$parstack,\@parser,	$parstack,\@parser,
$safeeval,$style);	$safeeval,$style);
	&Apache::lonxml::debug("xmlparse recursion ending with $result");
return $result;	return $result;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.109
changed lines
	Added in v.1.112