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.178, 2006/09/25 19:24:49
Line 1185 ENDEDIT	Line 1185 ENDEDIT
my $output;	my $output;
my @fields;	my @fields;
my $added_metadata_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'})) {	if(exists ($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'})) {
# retrieve fieldnames (in order) from the course restricted list	# retrieve fieldnames (in order) from the course restricted list
@fields = (split /,/,$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'});	@fields = (split /,/,$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'});
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";