loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.84, 2004/07/09 21:35:05	version 1.85, 2004/08/03 15:56:18
Line 544 sub handler {	Line 544 sub handler {
&present_editable_metadata($r,$uri);	&present_editable_metadata($r,$uri);
} else {	} else {
$r->print(&Apache::loncommon::bodytag	$r->print(&Apache::loncommon::bodytag
('Catalog Information','','','',$resdomain));	('Catalog Information','','','',$resdomain));
&present_uneditable_metadata($r,$uri);	&present_uneditable_metadata($r,$uri);
}	}
$r->print('</body></html>');	$r->print('</body></html>');
Line 905 ENDBOMBS	Line 905 ENDBOMBS
&mt('Default Cataloging Information for Directory').' '.	&mt('Default Cataloging Information for Directory').' '.
$dir;	$dir;
}	}
my $bodytag=
&Apache::loncommon::bodytag('Edit Catalog Information');
%Apache::lonpublisher::metadatafields=();	%Apache::lonpublisher::metadatafields=();
%Apache::lonpublisher::metadatakeys=();	%Apache::lonpublisher::metadatakeys=();
&Apache::lonpublisher::metaeval(&Apache::lonnet::getfile($fn));	&Apache::lonpublisher::metaeval(&Apache::lonnet::getfile($fn));
$r->print(<<ENDEDIT);	$r->print(<<ENDEDIT);
<html><head><title>Edit Catalog Information</title></head>
$bodytag
<h1>$displayfile</h1>	<h1>$displayfile</h1>
<form method="post" name="defaultmeta">	<form method="post" name="defaultmeta">
ENDEDIT	ENDEDIT