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

Diff for /loncom/interface/lonparmset.pm between versions 1.260 and 1.262

version 1.260, 2005/10/14 17:05:44 version 1.262, 2005/10/26 21:42:10
Line 2758  sub output_row { Line 2758  sub output_row {
     my $checked;      my $checked;
     unless (defined($options)) {      unless (defined($options)) {
         $options = 'active,stuadd';          $options = 'active,stuadd';
         $values = 'Type a list of values separated by commas.';          $values = '';
     }      }
     $output.='<strong>'.$field_text.':</strong>';      $output.='<strong>'.$field_text.':</strong>';
     $output.='<input name="'.$field_name.'_values" type="text" value="'.$values.'" /><br />';      $output.='<input name="'.$field_name.'_values" type="text" value="'.$values.'" /><br />';
Line 2768  sub output_row { Line 2768  sub output_row {
         $checked = '  ';          $checked = '  ';
     }      }
     $output.='&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="checkbox" name="'.$field_name.'_active" value="yes"'.$checked.' />';      $output.='&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="checkbox" name="'.$field_name.'_active" value="yes"'.$checked.' />';
     $output.='Active <br />';      $output.='Show to student <br />';
     if ($options =~ m/onlyone/) {      if ($options =~ m/onlyone/) {
         $checked = ' checked="checked" ';          $checked = ' checked="checked" ';
     } else {      } else {
Line 2822  sub setrestrictmeta { Line 2822  sub setrestrictmeta {
                }                 }
                     my $name = $save_field;                      my $name = $save_field;
                      $put_result = &Apache::lonnet::put('environment',                       $put_result = &Apache::lonnet::put('environment',
                                                   {$meta_field.'.options'=>$options,                                                    {'metadata.'.$meta_field.'.options'=>$options,
                                                    $meta_field.'.values'=>$env{'form.'.$meta_field.'_values'},                                                     'metadata.'.$meta_field.'.values'=>$env{'form.'.$meta_field.'_values'},
                                                    },$dom,$crs);                                                     },$dom,$crs);
                 }                  }
             }              }
Removed from v.1.260  
changed lines
  Added in v.1.262

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