[LON-CAPA-cvs] cvs: loncom /interface lonmeta.pm

[banghart]

banghart		Tue Sep 19 15:58:42 2006 EDT

  Modified files:              
    /loncom/interface	lonmeta.pm 
  Log:
  	allow _ in metadata tag
  
  
Index: loncom/interface/lonmeta.pm
diff -u loncom/interface/lonmeta.pm:1.176 loncom/interface/lonmeta.pm:1.177
--- loncom/interface/lonmeta.pm:1.176	Wed Sep 13 18:08:07 2006
+++ loncom/interface/lonmeta.pm	Tue Sep 19 15:58:41 2006
@@ -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.177 2006/09/19 19:58:41 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1281,7 +1281,7 @@
 	    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";