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

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

version 1.177, 2006/09/19 19:58:41 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) {
Removed from v.1.177  
changed lines
  Added in v.1.179

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