loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.176, 2006/09/13 22:08:07	version 1.177, 2006/09/19 19:58:41
Line 1281 ENDEDIT	Line 1281 ENDEDIT
foreach my $field (sort keys %Apache::lonpublisher::metadatafields) {	foreach my $field (sort keys %Apache::lonpublisher::metadatafields) {
next if ($field =~ /\./);	next if ($field =~ /\./);
my $unikey=$field;	my $unikey=$field;
$unikey=~/^([A-Za-z]+)/;	$unikey=~/^([A-Za-z_]+)/;
my $tag=$1;	my $tag=$1;
$tag=~tr/A-Z/a-z/;	$tag=~tr/A-Z/a-z/;
$file_content.= "\n\<$tag";	$file_content.= "\n\<$tag";