loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.99, 2003/06/18 21:04:42	version 1.100, 2003/08/11 20:07:20
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') {