loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.55, 2004/01/02 16:34:03	version 1.57, 2004/01/04 00:28:22
Line 212 sub fieldnames {	Line 212 sub fieldnames {
return &Apache::lonlocal::texthash(	return &Apache::lonlocal::texthash(
'title' => 'Title',	'title' => 'Title',
'author' =>'Author(s)',	'author' =>'Author(s)',
	'authorspace' => 'Author Space',
	'modifyinguser' => 'Last Modifying User',
'subject' => 'Subject',	'subject' => 'Subject',
'keywords' => 'Keyword(s)',	'keywords' => 'Keyword(s)',
'notes' => 'Notes',	'notes' => 'Notes',
Line 654 ENDEDIT	Line 656 ENDEDIT
'copyright','customdistributionfile','language','standards',	'copyright','customdistributionfile','language','standards',
'lowestgradelevel','highestgradelevel',	'lowestgradelevel','highestgradelevel',
'obsolete','obsoletereplacement') {	'obsolete','obsoletereplacement') {
$Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_};	if (defined($ENV{'form.new_'.$_})) {
	$Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_};
	}
unless ($Apache::lonpublisher::metadatafields{'copyright'}) {	unless ($Apache::lonpublisher::metadatafields{'copyright'}) {
$Apache::lonpublisher::metadatafields{'copyright'}='default';	$Apache::lonpublisher::metadatafields{'copyright'}='default';
}	}