Diff for /loncom/interface/lonmeta.pm between versions 1.180 and 1.181

version 1.180, 2006/09/29 18:11:49 version 1.181, 2006/10/06 19:04:29
Line 1246  ENDEDIT Line 1246  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);
             $lt{$field_name} = $$added_metadata_fields{$field_name};              $lt{$field_name} = $$added_metadata_fields{$field_name};
         }          }
Line 1257  ENDEDIT Line 1258  ENDEDIT
             if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none'              if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none'
  && exists($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'})) {   && exists($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'})) {
                 # handle restrictions here                  # handle restrictions here
                 if (($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/active/) ||                  if ($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/deleted/) {
                     ($field_name eq 'courserestricted')){                      &Apache::lonnet::logthis("the options field ".$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'});
                   }
                   if ((($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/active/) ||
                       ($field_name eq 'courserestricted'))&&
                       (!($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/deleted/))){
                     $output.=("\n".'<p>'.$lt{$field_name}.': '.                      $output.=("\n".'<p>'.$lt{$field_name}.': '.
                               &prettyinput($field_name,                                &prettyinput($field_name,
    $Apache::lonpublisher::metadatafields{$field_name},     $Apache::lonpublisher::metadatafields{$field_name},

Removed from v.1.180  
changed lines
  Added in v.1.181


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