loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.28, 2000/12/21 18:12:12	version 1.29, 2001/01/04 19:15:02
Line 16 sub BEGIN {	Line 16 sub BEGIN {
sub start_script {	sub start_script {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$parstack,$parser,$safeeval)=@_;
my $args ='';	my $args ='';
if ( $#$parstack > -1 ) {	if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
$args=$$parstack[$#$parstack];
}
my $type = &Apache::run::run("{$args;".'return $type}',$safeeval);	my $type = &Apache::run::run("{$args;".'return $type}',$safeeval);
my $result='';	my $result='';
#&Apache::lonxml::debug("found type of $type");	#&Apache::lonxml::debug("found type of $type");
Line 43 sub start_script {	Line 41 sub start_script {
sub end_script {	sub end_script {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$parstack,$parser,$safeeval)=@_;
if ( $target eq "meta" ) { return ''; }	if ( $target eq "meta" ) { return ''; }
# return $token->[2];	my $args ='';
	if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
	my $type = &Apache::run::run("{$args;".'return $type}',$safeeval);
	my $result='';
	#other script blocks need to survive
	if ($type ne "loncapa/perl") { return $token->[2]; }
return '';	return '';
}	}