loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.449, 2013/10/12 01:26:31	version 1.451, 2014/05/15 20:19:06
Line 585 sub start_body {	Line 585 sub start_body {
# FIXME Where are we?	# FIXME Where are we?
}	}

	my $args = {'add_entries' => $token->[2],
	'force_register' => 1,};
	if ($target eq 'web') {
	$args->{'print_suppress'} = 1;
	}
$currentstring =	$currentstring =
&Apache::loncommon::start_page($Apache::londefdef::title,	&Apache::loncommon::start_page($Apache::londefdef::title,
$Apache::londefdef::head	$Apache::londefdef::head
.$extra_head,	.$extra_head,$args);
{'add_entries' => $token->[2],
# 'no_title' => 1,
'force_register' => 1});

my $header = '';	my $header = '';
if ($env{'request.state'} ne 'published' &&	if ($env{'request.state'} ne 'published' &&
$env{'request.state'} ne 'construct') {	$env{'request.state'} ne 'construct') {
Line 4595 sub latex_header {	Line 4596 sub latex_header {
sub clean_docs_httpref {	sub clean_docs_httpref {
my ($href,$docuri,$cdom,$cnum) = @_;	my ($href,$docuri,$cdom,$cnum) = @_;
if ($docuri eq '') {	if ($docuri eq '') {
&Apache::lonnet::hreflocation('',$env{'request.filename'});	$docuri = &Apache::lonnet::hreflocation('',$env{'request.filename'});
}	}
if ($cdom eq '') {	if ($cdom eq '') {
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};