[BACK]Return to lonmeta.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmeta.pm between versions 1.176 and 1.179

version 1.176, 2006/09/13 22:08:07 version 1.179, 2006/09/28 23:37:57
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 1195  ENDEDIT Line 1195  ENDEDIT
     'notes','lowestgradelevel',      'notes','lowestgradelevel',
                     'highestgradelevel','standards');                      'highestgradelevel','standards');
         $added_metadata_fields = &Apache::lonparmset::get_added_meta_fieldnames();          $added_metadata_fields = &Apache::lonparmset::get_added_meta_fieldnames();
           
         $env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'} = join (",",@fields);          $env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'} = join (",",@fields);
     }      }
  } else {   } else {
Line 1240  ENDEDIT Line 1239  ENDEDIT
  }   }
         foreach my $field_name(keys (%$added_metadata_fields)) {          foreach my $field_name(keys (%$added_metadata_fields)) {
             push (@fields,$field_name);              push (@fields,$field_name);
             $Apache::lonpublisher::metadatafields{$field_name} =  
                      $$added_metadata_fields{$field_name};  
             $lt{$field_name} = $$added_metadata_fields{$field_name};              $lt{$field_name} = $$added_metadata_fields{$field_name};
         }          }
         foreach my $field_name (@fields) {          foreach my $field_name (@fields) {
Line 1281  ENDEDIT Line 1278  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";
Removed from v.1.176  
changed lines
  Added in v.1.179

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>