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.79 and 1.81

version 1.79, 2002/10/21 20:31:06	version 1.81, 2002/11/06 23:05:02
Line 43 BEGIN {	Line 43 BEGIN {
&Apache::lonxml::register('Apache::scripttag',	&Apache::lonxml::register('Apache::scripttag',
('script','scriptlib','parserlib','import',	('script','scriptlib','parserlib','import',
'window','display','storetc','physnet',	'window','display','storetc','physnet',
'standalone','comment'));	'standalone','comment',
	'LONCAPA_INTERNAL_TURN_STYLE_ON'));
	}

	sub start_LONCAPA_INTERNAL_TURN_STYLE_ON {
	$Apache::lonxml::usestyle=1;
	return ('','no');
	}

	sub end_LONCAPA_INTERNAL_TURN_STYLE_ON {
	return ('','no');
}	}

sub start_script {	sub start_script {
Line 114 sub start_display {	Line 124 sub start_display {
} elsif ( $target eq 'web' \|\| $target eq 'tex' \|\|	} elsif ( $target eq 'web' \|\| $target eq 'tex' \|\|
$target eq 'grade' \|\| $target eq 'answer' \|\|	$target eq 'grade' \|\| $target eq 'answer' \|\|
$target eq 'analyze') {	$target eq 'analyze') {
$result=&Apache::run::run($bodytext,$safeeval);	if (!$Apache::lonxml::default_homework_loaded) {
if ($target eq 'grade' \|\| $target eq 'answer' \|\|	&Apache::lonxml::default_homework_load($safeeval);
$target eq 'analyze') {	}
$result=''; # grade should produce no output	$result=&Apache::run::run($bodytext,$safeeval);
}	if ($target eq 'grade' \|\| $target eq 'answer' \|\|
	$target eq 'analyze') {
	$result=''; # grade should produce no output
	}
} elsif ($target eq "edit" ) {	} elsif ($target eq "edit" ) {
#$result =	#$result =
# "<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />";	# "<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />";

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

Removed from v.1.79
changed lines
	Added in v.1.81