loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.149, 2008/11/24 18:55:01	version 1.150, 2008/12/02 00:22:39
Line 44 BEGIN {	Line 44 BEGIN {
'window','display','storetc','physnet',	'window','display','storetc','physnet',
'standalone','comment','num','parse','algebra',	'standalone','comment','num','parse','algebra',
'LONCAPA_INTERNAL_TURN_STYLE_ON',	'LONCAPA_INTERNAL_TURN_STYLE_ON',
'LONCAPA_INTERNAL_TURN_STYLE_OFF',	'LONCAPA_INTERNAL_TURN_STYLE_OFF'));
'LONCAPA_INTERNAL_LONHTTPD_PORT'));
}	}

sub start_LONCAPA_INTERNAL_TURN_STYLE_ON {	sub start_LONCAPA_INTERNAL_TURN_STYLE_ON {
Line 81 sub end_LONCAPA_INTERNAL_TURN_STYLE_OFF	Line 80 sub end_LONCAPA_INTERNAL_TURN_STYLE_OFF
return ('','no');	return ('','no');
}	}

sub start_LONCAPA_INTERNAL_LONHTTPD_PORT {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
if ($target eq 'web' \|\| $target eq 'webgrade') {
return '<script type="text/javascript">var lonhttpdport=\''.
&Apache::loncommon::lonhttpd_port().'\';</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 = @_;