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

Diff for /loncom/interface/lonparmset.pm between versions 1.253 and 1.254

version 1.253, 2005/09/28 23:19:25 version 1.254, 2005/09/29 21:10:32
Line 2753  ENDMAINFORMHEAD Line 2753  ENDMAINFORMHEAD
 sub output_row {  sub output_row {
     my ($r, $field_name) = @_;      my ($r, $field_name) = @_;
     my $output;      my $output;
     my $active=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.active'};      my $options=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'};
     my $onlyone=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.onlyone'};  
     my $stuadd=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.stuadd'};  
     my $values=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.values'};      my $values=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.values'};
     my $checked;      my $checked;
     unless (defined($active)) {      unless (defined($options)) {
         $active = 'no';          $options = 'active,stuadd';
         $stuadd = 'yes';  
         $values = 'Type a list of values separated by commas.';          $values = 'Type a list of values separated by commas.';
         $onlyone = 'no';  
     }      }
     $output.='<tr><td><strong>'.$field_name.'</strong></td>';      $output.='<tr><td><strong>'.$field_name.'</strong></td>';
     $output.='<td><input name="'.$field_name.'_values" type="text" value="'.$values.'" /></td>';      $output.='<td><input name="'.$field_name.'_values" type="text" value="'.$values.'" /></td>';
     if ($onlyone eq 'no') {      if ($options =~ m/onlyone/) {
         $checked = ' CHECKED ';          $checked = ' CHECKED ';
     } else {      } else {
         $checked = ' ';          $checked = '  ';
     }      }
     $output.='<td><center><input type="checkbox" name="'.$field_name.'_onlyone"" value="yes"'.$checked.' /></center></td>';      $output.='<td><center><input type="checkbox" name="'.$field_name.'_onlyone"" value="yes"'.$checked.' /></center></td>';
     if ($stuadd eq 'yes') {      if ($options =~ m/stuadd/) {
         $checked = ' CHECKED ';          $checked = ' CHECKED ';
     } else {      } else {
         $checked = ' ';          $checked = ' ';
     }      }
     $output.='<td><input type="checkbox" name="'.$field_name.'_stuadd" value="yes"'.$checked.' /></td>';      $output.='<td><input type="checkbox" name="'.$field_name.'_stuadd" value="yes"'.$checked.' /></td>';
       
     $output.='</tr>';      $output.='</tr>';
     return ($output);      return ($output);
 }  }
Line 2798  sub setinstmeta { Line 2795  sub setinstmeta {
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $key_base = $env{'course.'.$env{'request.course.id'}.'.metadata.'};      my $key_base = $env{'course.'.$env{'request.course.id'}.'.metadata.'};
     my $save_field = '';      my $save_field = '';
     my $stuadd;  
     my $onlyone;  
     my $active;  
     if ($env{'form.instmeta'}) {      if ($env{'form.instmeta'}) {
         foreach my $field (sort %env) {          foreach my $field (sort(keys(%env))) {
             if ($field=~m/^form.(.+)_(.+)$/) {              if ($field=~m/^form.(.+)_(.+)$/) {
                   my $options;
                 my $meta_field = $1;                  my $meta_field = $1;
                 my $meta_key = $2;                  my $meta_key = $2;
                 if ($save_field ne $meta_field) {                  if ($save_field ne $meta_field) {
                     $save_field = $meta_field;                      $save_field = $meta_field;
                if ($env{'form.'.$meta_field.'_stuadd'}) {                 if ($env{'form.'.$meta_field.'_stuadd'}) {
                    $stuadd='yes';                     $options.='stuadd,';
                } else {                 } 
                    $stuadd='no';  
                }  
                if ($env{'form.'.$meta_field.'_onlyone'}) {                 if ($env{'form.'.$meta_field.'_onlyone'}) {
                    $onlyone='no';                     $options.='onlyone,';
                } else {                 } 
                    $onlyone='yes';                 if ($env{'form.'.$meta_field.'_active'}) {
                      $options.='active,';
                }                 }
                $active='yes';  
                     my $name = 'metadata.'.$save_field;                      my $name = 'metadata.'.$save_field;
                      $put_result = &Apache::lonnet::put('environment',                       $put_result = &Apache::lonnet::put('environment',
                                                   {'metadata.'.$meta_field.'.stuadd'=>$stuadd,                                                    {'metadata.'.$meta_field.'.options'=>$options,
                                                     'metadata.'.$meta_field.'.onlyone'=>$onlyone,  
                                                     'metadata.'.$meta_field.'.active'=>$active,  
                                                    'metadata.'.$meta_field.'.values'=>$env{'form.'.$meta_field.'_values'},                                                     'metadata.'.$meta_field.'.values'=>$env{'form.'.$meta_field.'_values'},
                                                    },$dom,$crs);                                                     },$dom,$crs);
                 }                  }
Line 2831  sub setinstmeta { Line 2822  sub setinstmeta {
         }          }
                   
     }      }
     foreach my $field (%env) {  
         # start by looking for populated fields  
         if ($field=~m/type(\d+)/) {  
      my $name;  
     my $value;  
             # $put_result = &Apache::lonnet::put('environment',  
             #                                      {$name=>$value},$dom,$crs);  
             # $put_result = &Apache::lonnet::put('environment',  
             #                                      {$name=>$value},$dom,$crs);  
         }  
         if ($field=~m/newfield/) {  
             my $name = 'metadata.'.$env{'form.titlenew'};  
             my %meta_hash = {values=>[$env{'form.valuesnew'}],  
             allow_pick=>'many',  
             allow_type=>'no'};  
              
             my $value = \%meta_hash;  
             # $put_result = &Apache::lonnet::put('environment',  
             #                                      {$name=>$value},$dom,$crs);  
         }  
     }   
     &Apache::lonnet::coursedescription($env{'request.course.id'});      &Apache::lonnet::coursedescription($env{'request.course.id'});
     $output.= &output_row($r, "Title");      $output.= &output_row($r, "Title");
     $output.= &output_row($r, "Subject");      $output.= &output_row($r, "Subject");
Removed from v.1.253  
changed lines
  Added in v.1.254

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