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"; |