loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.114, 2004/08/10 19:22:32	version 1.115, 2004/08/18 20:48:45
Line 138 sub start_script {	Line 138 sub start_script {
}	}
} else {	} else {
my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser);	my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser);
if ($target ne "meta") {	if ($target ne "meta" && $target ne 'tex') {
$result = $token->[4];	$result = $token->[4];
$result.=$bodytext;	$result.=$bodytext;
}	}
Line 152 sub end_script {	Line 152 sub end_script {
my $type = &Apache::lonxml::get_param('type',$parstack,$safeeval);	my $type = &Apache::lonxml::get_param('type',$parstack,$safeeval);
my $result='';	my $result='';
#other script blocks need to survive	#other script blocks need to survive
if ($type ne "loncapa/perl") {	if ($type ne "loncapa/perl" && $target ne 'tex') {
return $token->[2];	return $token->[2];
} elsif ($target eq 'edit' ) {	} elsif ($target eq 'edit' ) {
return &Apache::edit::end_table();	return &Apache::edit::end_table();