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

Diff for /loncom/interface/lonmeta.pm between versions 1.131 and 1.132

version 1.131, 2005/11/19 22:47:07 version 1.132, 2005/11/22 19:43:53
Line 490  sub prettyinput { Line 490  sub prettyinput {
         my %meta_options;          my %meta_options;
         my @cur_values_inst;          my @cur_values_inst;
         my $cur_values_stu;          my $cur_values_stu;
         my $values = $env{$course_key.'.metadata.'.$_.'.values'};          my $values = $env{$course_key.'.metadata.'.$type.'.values'};
         if ($env{$course_key.'.metadata.'.$_.'.options'} =~ m/stuadd/) {          if ($env{$course_key.'.metadata.'.$type.'.options'} =~ m/stuadd/) {
             $stu_add = 'true';              $stu_add = 'true';
         }          }
         if ($env{$course_key.'.metadata.'.$_.'.options'} =~ m/onlyone/) {          if ($env{$course_key.'.metadata.'.$type.'.options'} =~ m/onlyone/) {
             $only_one = 'true';              $only_one = 'true';
         }          }
         # need to take instructor values out of list where instructor and student          # need to take instructor values out of list where instructor and student
         # values may be mixed.          # values may be mixed.
         if ($values && $stu_add) {          if ($values && $stu_add) {
             foreach (split(/,/,$values)) {              foreach my $item (split(/,/,$values)) {
                 $_ =~ s/^\s+//;                  $item =~ s/^\s+//;
                 $meta_options{$_} = $_;                  $meta_options{$item} = $type;
             }              }
             foreach (split(/,/,$value)) {              foreach my $item (split(/,/,$value)) {
                 $_ =~ s/^\s+//;                  $item =~ s/^\s+//;
                 if ($meta_options{$_}) {                  if ($meta_options{$item}) {
                     push(@cur_values_inst,$_);                      push(@cur_values_inst,$item);
                 } else {                  } else {
                     $cur_values_stu .= $_.',';                      $cur_values_stu .= $item.',';
                 }                  }
             }              }
         } else {          } else {
Line 1099  ENDEDIT Line 1099  ENDEDIT
         if ($metacourse ne 'none') {          if ($metacourse ne 'none') {
              $r->print('Document metadata restricted by :<strong> '.$env{$metacourse.".description"}."</strong><br />");               $r->print('Document metadata restricted by :<strong> '.$env{$metacourse.".description"}."</strong><br />");
         }          }
                   foreach my $field_name(@fields) {
         foreach (@fields) {  
             if (defined($env{'form.new_'.$_})) {              if (defined($env{'form.new_'.$field_name})) {
                 $Apache::lonpublisher::metadatafields{$_}=                  $Apache::lonpublisher::metadatafields{$field_name}=
                     join(',',&Apache::loncommon::get_env_multiple('form.new_'.$_));                      join(',',&Apache::loncommon::get_env_multiple('form.new_'.$field_name));
             }              }
             my $field_name = $_;  
             if ($metacourse ne 'none') {              if ($metacourse ne 'none') {
                 # handle restrictions here                  # handle restrictions here
                 if ($env{$metacourse.'.metadata.'.$_.'.options'} =~ m/active/){                  if ($env{$metacourse.'.metadata.'.$field_name.'.options'} =~ m/active/){
                     $output.=('<p>'.$lt{$_}.': '.                      $output.=('<p>'.$lt{$field_name}.': '.
                               &prettyinput($_,                                &prettyinput($field_name,
    $Apache::lonpublisher::metadatafields{$_},     $Apache::lonpublisher::metadatafields{$field_name},
    'new_'.$_,'defaultmeta',undef,undef,undef,undef,$metacourse).'</p>');     'new_'.$field_name,'defaultmeta',undef,undef,undef,undef,$metacourse).'</p>');
                  } elsif ($_ eq 'courserestricted') {                   } elsif ($field_name eq 'courserestricted') {
                             $output.=(                              $output.=(
                                 &prettyinput($field_name,                                  &prettyinput($field_name,
     $Apache::lonpublisher::metadatafields{$_},      $Apache::lonpublisher::metadatafields{$field_name},
     'new_'.$field_name,'defaultmeta',undef,undef,undef,undef,$metacourse));      'new_'.$field_name,'defaultmeta',undef,undef,undef,undef,$metacourse));
                  }                   }
             } else {              } else {
                 if ($_ ne 'courserestricted') {                  if ($field_name ne 'courserestricted') {
                     $output.=('<p>'.$lt{$_}.': '.                      $output.=('<p>'.$lt{$field_name}.': '.
                             &prettyinput($_,                              &prettyinput($field_name,
    $Apache::lonpublisher::metadatafields{$_},     $Apache::lonpublisher::metadatafields{$field_name},
    'new_'.$_,'defaultmeta').'</p>');     'new_'.$field_name,'defaultmeta').'</p>');
         } else {          } else {
                     $output.=&prettyinput($field_name,                      $output.=&prettyinput($field_name,
    $Apache::lonpublisher::metadatafields{$_},     $Apache::lonpublisher::metadatafields{$field_name},
    'new_'.$field_name,'defaultmeta');     'new_'.$field_name,'defaultmeta');
                 }                  }
             }              }
         }          }
         $output.=('<p>'.$lt{$_}.': '.  
                  &prettyinput($_,  
  $Apache::lonpublisher::metadatafields{$_},  
  'new_'.$_,'defaultmeta',undef,undef,undef,undef,$metacourse).'</p>');  
   
         if ($env{'form.store'}) {          if ($env{'form.store'}) {
             my $mfh;              my $mfh;
             my $formname='store';               my $formname='store'; 
Removed from v.1.131  
changed lines
  Added in v.1.132

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