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.99 and 1.101

version 1.99, 2003/06/18 21:04:42	version 1.101, 2003/10/03 17:15:01
Line 45 BEGIN {	Line 45 BEGIN {
'window','display','storetc','physnet',	'window','display','storetc','physnet',
'standalone','comment',	'standalone','comment',
'LONCAPA_INTERNAL_TURN_STYLE_ON',	'LONCAPA_INTERNAL_TURN_STYLE_ON',
	'LONCAPA_INTERNAL_TURN_STYLE_OFF',
'LONCAPA_INTERNAL_LONHTTPD_PORT'));	'LONCAPA_INTERNAL_LONHTTPD_PORT'));
}	}

Line 63 sub end_LONCAPA_INTERNAL_TURN_STYLE_ON {	Line 64 sub end_LONCAPA_INTERNAL_TURN_STYLE_ON {
return ('','no');	return ('','no');
}	}

	sub start_LONCAPA_INTERNAL_TURN_STYLE_OFF {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
	$Apache::lonxml::usestyle=0;
	my $end=&Apache::lonxml::get_param('end',$parstack,$safeeval);
	if (!$end) {
	$Apache::lonxml::style_values=$$parstack[-1];
	$Apache::lonxml::style_end_values=$$parstack[-1];
	} else {
	$Apache::lonxml::style_values=$Apache::lonxml::style_end_values;
	$Apache::lonxml::style_end_values='';
	}
	return ('','no');
	}

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

sub start_LONCAPA_INTERNAL_LONHTTPD_PORT {	sub start_LONCAPA_INTERNAL_LONHTTPD_PORT {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
if ($target eq 'web') {	if ($target eq 'web') {
Line 158 sub start_display {	Line 177 sub start_display {
$target eq 'analyze') {	$target eq 'analyze') {
$result=''; # grade should produce no output	$result=''; # grade should produce no output
}	}
	$Apache::lonxml::post_evaluate=0;
} 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.99
changed lines
	Added in v.1.101