loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.85, 2003/02/07 22:03:21	version 1.86, 2003/02/24 23:32:32
Line 44 BEGIN {	Line 44 BEGIN {
('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'));	'LONCAPA_INTERNAL_TURN_STYLE_ON',
	'LONCAPA_INTERNAL_LONHTTPD_PORT'));
}	}

sub start_LONCAPA_INTERNAL_TURN_STYLE_ON {	sub start_LONCAPA_INTERNAL_TURN_STYLE_ON {
Line 56 sub end_LONCAPA_INTERNAL_TURN_STYLE_ON {	Line 57 sub end_LONCAPA_INTERNAL_TURN_STYLE_ON {
return ('','no');	return ('','no');
}	}

	sub start_LONCAPA_INTERNAL_LONHTTPD_PORT {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
	if ($target eq 'web') {
	my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};
	if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }
	return '<script type="text/javascript">var lonhttpdport=\''.
	$lonhttpdPort.'\';</script>';
	}
	return ('','no');
	}

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

sub start_script {	sub start_script {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
@Apache::scripttag::parser_env = @_;	@Apache::scripttag::parser_env = @_;