loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.238, 2009/12/01 18:34:02	version 1.240, 2010/06/06 02:40:30
Line 638 sub prettyinput {	Line 638 sub prettyinput {

if ($values) {	if ($values) {
if ($only_one) {	if ($only_one) {
$output .= (&Apache::loncommon::select_form($cur_values_inst[0],'new_'.$type,%meta_options));	$output .= (&Apache::loncommon::select_form($cur_values_inst[0],'new_'.$type,\%meta_options));
} else {	} else {
$output .= (&Apache::loncommon::multiple_select_form('new_'.$type,\@cur_values_inst,undef,\%meta_options));	$output .= (&Apache::loncommon::multiple_select_form('new_'.$type,\@cur_values_inst,undef,\%meta_options));
}	}
Line 846 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());