loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.24, 2000/11/22 00:00:54	version 1.27, 2000/12/08 20:53:45
Line 41 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)=@_;
return '';	# return '';
#return $token->[2];	return $token->[2];
}	}

sub start_display {	sub start_display {
Line 56 sub start_display {	Line 56 sub start_display {
if ( $target eq "modified" ) {	if ( $target eq "modified" ) {
}	}
my $result=&Apache::run::run($bodytext,$safeeval);	my $result=&Apache::run::run($bodytext,$safeeval);
	if ($target eq 'grade' ) {
	# grade should produce no output
	$result='';
	}
if ($target eq "edit" ) {	if ($target eq "edit" ) {
$result =	$result =
"<br> <$token->[1]> output: <br>$bodytext<br>Source:<br>";	"<br> <$token->[1]> output: <br>$bodytext<br>Source:<br>";
Line 155 sub start_import {	Line 158 sub start_import {
$result.=&editfield($token->[1],$bodytext);	$result.=&editfield($token->[1],$bodytext);
$result.="Click<a href=\"/res/$bodytext\">here</a> to edit<br></br>"	$result.="Click<a href=\"/res/$bodytext\">here</a> to edit<br></br>"
}	}
	return '';
}	}

sub end_import {	sub end_import {