--- loncom/interface/lonmeta.pm	2006/09/13 22:08:07	1.176
+++ loncom/interface/lonmeta.pm	2006/09/28 23:37:57	1.179
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Metadata display handler
 #
-# $Id: lonmeta.pm,v 1.176 2006/09/13 22:08:07 banghart Exp $
+# $Id: lonmeta.pm,v 1.179 2006/09/28 23:37:57 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1185,7 +1185,7 @@ ENDEDIT
 	my $output;
 	my @fields;
 	my $added_metadata_fields;
-	if ($file_type eq 'portfolio') {
+	if ($file_type eq 'portfolio' || $file_type eq 'groups') {
 	    if(exists ($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'})) {
 	        # retrieve fieldnames (in order) from the course restricted list
 	        @fields = (split /,/,$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'});
@@ -1195,7 +1195,6 @@ ENDEDIT
 			    'notes','lowestgradelevel',
 	                    'highestgradelevel','standards');
 	        $added_metadata_fields = &Apache::lonparmset::get_added_meta_fieldnames();
-	        
 	        $env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'} = join (",",@fields);
 	    }
 	} else {
@@ -1240,8 +1239,6 @@ ENDEDIT
 	}
         foreach my $field_name(keys (%$added_metadata_fields)) {
             push (@fields,$field_name);
-            $Apache::lonpublisher::metadatafields{$field_name} =
-                     $$added_metadata_fields{$field_name};
             $lt{$field_name} = $$added_metadata_fields{$field_name};
         }
         foreach my $field_name (@fields) {
@@ -1281,7 +1278,7 @@ ENDEDIT
 	    foreach my $field (sort keys %Apache::lonpublisher::metadatafields) {
 		next if ($field =~ /\./);
 		my $unikey=$field;
-		$unikey=~/^([A-Za-z]+)/;
+		$unikey=~/^([A-Za-z_]+)/;
 		my $tag=$1;
 		$tag=~tr/A-Z/a-z/;
 		$file_content.= "\n\<$tag";