loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.237, 2009/12/01 18:07:50	version 1.239, 2009/12/14 14:39:23
Line 744 sub prettyinput {	Line 744 sub prettyinput {

# Create pageheader	# Create pageheader
sub pageheader {	sub pageheader {
my $output = &Apache::lonhtmlcommon::breadcrumbs();	my $output = '';
	# No CSTR? Include breadcrumbs
	if ($env{'request.state'} ne 'construct') {
	# loncommon::bodytag already includes breadcrumbs for CSTR
	# by calling lonmenu::innerregister
	$output = &Apache::lonhtmlcommon::breadcrumbs();
	}
	# CSTR? Include CSTR header
if ($env{'request.state'} eq 'construct') {	if ($env{'request.state'} eq 'construct') {
$output .= &Apache::loncommon::head_subbox(	$output .= &Apache::loncommon::head_subbox(
&Apache::loncommon::CSTR_pageheader());	&Apache::loncommon::CSTR_pageheader());
Line 840 sub handler {	Line 846 sub handler {
'text' => 'Metadata',	'text' => 'Metadata',
'href' => '',	'href' => '',
});	});
$r->print(&Apache::loncommon::start_page('Metadata',	$r->print(
undef,	&Apache::loncommon::start_page(
{'domain' => $resdomain,}));	'Metadata',
$r->print(&pageheader());	undef,
	{'domain' => $resdomain,
	'only_body' => 1,})
	.'<h1>'.&mt('Metadata').'</h1>'
	);
&present_uneditable_metadata($r,$uri);	&present_uneditable_metadata($r,$uri);
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());