loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.365, 2007/05/10 09:50:10	version 1.366, 2007/06/05 22:37:58
Line 516 sub end_accessrule {	Line 516 sub end_accessrule {
return $currentstring;	return $currentstring;
}	}

	sub generate_css_links {
	my $links;
	my $css_href = &Apache::lonnet::EXT('resource.0.cssfile');
	if ($css_href =~ /\S/) {
	&Apache::lonxml::extlink($css_href);
	$links .=
	'<link rel="stylesheet" type="text/css" href="'.$css_href.'" />';
	}
	return $links;
	}

#-- <body> tag (end tag required)	#-- <body> tag (end tag required)
sub start_body {	sub start_body {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
Line 530 sub start_body {	Line 541 sub start_body {
if (&is_inside_of($tagstack, "head")) {	if (&is_inside_of($tagstack, "head")) {
&end_head(@_);	&end_head(@_);
}	}

	my $extra_head = &generate_css_links();

$currentstring =	$currentstring =
&Apache::loncommon::start_page($Apache::londefdef::title,	&Apache::loncommon::start_page($Apache::londefdef::title,
$Apache::londefdef::head,	$Apache::londefdef::head
	.$extra_head,
{'add_entries' => $token->[2],	{'add_entries' => $token->[2],
'no_title' => 1,	'no_title' => 1,
'force_register' => 1});	'force_register' => 1});