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

Diff for /loncom/interface/lonmeta.pm between versions 1.200 and 1.201

version 1.200, 2007/01/16 07:36:10 version 1.201, 2007/01/19 14:23:23
Line 631  sub prettyinput { Line 631  sub prettyinput {
                 if ($meta_options{$item}) {                  if ($meta_options{$item}) {
                     push(@cur_values_inst,$item);                      push(@cur_values_inst,$item);
                 } else {                  } else {
                     if ($item ne 'Not Specified') {                      if ($item ne '') {
                         $cur_values_stu .= $item.',';                          $cur_values_stu .= $item.',';
                     }                      }
                 }                  }
             }              }
             my @key_order = sort(keys(%meta_options));              my @key_order = sort(keys(%meta_options));
             unshift (@key_order,'Not Specified');              unshift (@key_order,'');
             $meta_options{'Not Specified'} = 'Not Specified';              $meta_options{''} = 'Not specified';
             $meta_options{'select_form_order'} = \@key_order;              $meta_options{'select_form_order'} = \@key_order;
         } else {          } else {
             $cur_values_stu = $value;              $cur_values_stu = $value;
Line 1340  ENDEDIT Line 1340  ENDEDIT
         my $row_alt = 1;          my $row_alt = 1;
         foreach my $field_name (@fields) {          foreach my $field_name (@fields) {
             if (defined($env{'form.new_'.$field_name})) {              if (defined($env{'form.new_'.$field_name})) {
                 $Apache::lonpublisher::metadatafields{$field_name}=                  my @values = &Apache::loncommon::get_env_multiple('form.new_'.$field_name);
                     join(',',&Apache::loncommon::get_env_multiple('form.new_'.$field_name));                  my $newvalue = '';
                   foreach my $item (@values) {
                       if ($item ne '') {
                           $newvalue .= $item.',';
                       }
                   }
                   $newvalue =~ s/,$//; 
                   $Apache::lonpublisher::metadatafields{$field_name}=$newvalue;
             }              }
             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'})) {
Removed from v.1.200  
changed lines
  Added in v.1.201

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