loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.53, 2001/10/05 22:29:10	version 1.54, 2001/10/13 06:00:04
Line 31 sub start_script {	Line 31 sub start_script {
my $bodytext=&Apache::lonxml::get_all_text("/script",$$parser[$#$parser]);	my $bodytext=&Apache::lonxml::get_all_text("/script",$$parser[$#$parser]);
if ( $target eq "modified" ) {	if ( $target eq "modified" ) {
$result=$token->[4].&Apache::edit::modifiedfield();	$result=$token->[4].&Apache::edit::modifiedfield();
} elsif ( $target eq "web" \|\| $target eq "grade" \|\| $target eq 'answer') {	} elsif ( $target eq 'web' \|\| $target eq 'tex' \|\|
	$target eq 'grade' \|\| $target eq 'answer') {
&Apache::run::run($bodytext,$safeeval);	&Apache::run::run($bodytext,$safeeval);
if (($ENV{'request.state'} eq 'construct') && ($target eq 'web')) {	if (($ENV{'request.state'} eq 'construct') && ($target eq 'web')) {
$Apache::lonxml::evaluate--;	$Apache::lonxml::evaluate--;
Line 77 sub start_display {	Line 78 sub start_display {

if ( $target eq "modified" ) {	if ( $target eq "modified" ) {
$result=$token->[4].&Apache::edit::modifiedfield();	$result=$token->[4].&Apache::edit::modifiedfield();
} elsif ( $target eq "web" \|\| $target eq "grade" \|\| $target eq 'answer') {	} elsif ( $target eq 'web' \|\| $target eq 'tex' \|\|
	$target eq 'grade' \|\| $target eq 'answer') {
$result=&Apache::run::run($bodytext,$safeeval);	$result=&Apache::run::run($bodytext,$safeeval);
if ($target eq 'grade' ) {	if ($target eq 'grade' ) {
$result=''; # grade should produce no output	$result=''; # grade should produce no output