loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.142, 2007/08/03 23:29:54	version 1.143, 2007/08/30 22:56:43
Line 80 sub end_LONCAPA_INTERNAL_TURN_STYLE_OFF	Line 80 sub end_LONCAPA_INTERNAL_TURN_STYLE_OFF
return ('','no');	return ('','no');
}	}

	=pod

	=item start_LONCAPA_INTERNAL_LONHTTPD_PORT

	emits a pice of javascript that says a global js variable to the
	current lonhttp port, currently used by the remote control to find out
	where to load images from

	=cut

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' \|\| $target eq 'webgrade') {	if ($target eq 'web' \|\| $target eq 'webgrade') {
my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};
if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }
return '<script type="text/javascript">var lonhttpdport=\''.	return '<script type="text/javascript">var lonhttpdport=\''.
$lonhttpdPort.'\';</script>';	&Apache::loncommon::lonhttpd_port().'\';</script>';
}	}
return ('','no');	return ('','no');
}	}