loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

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

-version 1.251, 2005/09/23 20:16:50
+version 1.254, 2005/09/29 21:10:32
  Line 2750  ENDMAINFORMHEAD
      return;
  }
  ### Set instructor defined metadata
+ sub output_row {
+     my ($r, $field_name) = @_;
+     my $output;
+     my $options=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'};
+     my $values=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.values'};
+     my $checked;
+     unless (defined($options)) {
+         $options = 'active,stuadd';
+         $values = 'Type a list of values separated by commas.';
+     }
+     $output.='<tr><td><strong>'.$field_name.'</strong></td>';
+     $output.='<td><input name="'.$field_name.'_values" type="text" value="'.$values.'" /></td>';
+     if ($options =~ m/onlyone/) {
+         $checked = ' CHECKED ';
+     } else {
+         $checked = '  ';
+     }
+     $output.='<td><center><input type="checkbox" name="'.$field_name.'_onlyone"" value="yes"'.$checked.' /></center></td>';
+     if ($options =~ m/stuadd/) {
+         $checked = ' CHECKED ';
+     } else {
+         $checked = ' ';
+     }
+     $output.='<td><input type="checkbox" name="'.$field_name.'_stuadd" value="yes"'.$checked.' /></td>';
+     $output.='</tr>';
+     return ($output);
+ }
  sub setinstmeta {
      my ($r)=@_;
      my $next_meta;
- Line 2766  sub setinstmeta {
+ Line 2794  sub setinstmeta {
      my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
      my $key_base = $env{'course.'.$env{'request.course.id'}.'.metadata.'};
-     foreach my $field (%env) {
+     my $save_field = '';
-         # start by looking for populated fields
+     if ($env{'form.instmeta'}) {
-         if ($field=~m/type(\d+)/) {
+         foreach my $field (sort(keys(%env))) {
- 	    	my $name;
+             if ($field=~m/^form.(.+)_(.+)$/) {
-     		my $value;
+                 my $options;
-             $put_result = &Apache::lonnet::put('environment',
+                 my $meta_field = $1;
-                                                   {$name=>$value},$dom,$crs);
+                 my $meta_key = $2;
-             $put_result = &Apache::lonnet::put('environment',
+                 if ($save_field ne $meta_field) {
-                                                   {$name=>$value},$dom,$crs);
+                     $save_field = $meta_field;
-         }
+             	    if ($env{'form.'.$meta_field.'_stuadd'}) {
-         if ($field=~m/newfield/) {
+             	        $options.='stuadd,';
-             my $name = 'metadata.'.$env{'form.titlenew'};
+             	    }
-             my %meta_hash = {values=>[$env{'form.valuesnew'}],
+             	    if ($env{'form.'.$meta_field.'_onlyone'}) {
-             				allow_pick=>'many',
+             	        $options.='onlyone,';
-             				allow_type=>'no'};
+             	    }
+             	    if ($env{'form.'.$meta_field.'_active'}) {
-             my $value = \%meta_hash;
+             	        $options.='active,';
-             $put_result = &Apache::lonnet::put('environment',
+             	    }
-                                                   {$name=>$value},$dom,$crs);
+                     my $name = 'metadata.'.$save_field;
-         }
+                      $put_result = &Apache::lonnet::put('environment',
-     }
+                                                   {'metadata.'.$meta_field.'.options'=>$options,
-     &Apache::lonnet::coursedescription($env{'request.course.id'});
+                                                    'metadata.'.$meta_field.'.values'=>$env{'form.'.$meta_field.'_values'},
-     foreach my $key (sort keys %env) {
+                                                    },$dom,$crs);
-         if ($key=~m/^course\.$env{'request.course.id'}\.metadata\.(.+)$/) {
+                 }
-             my $meta_data_item = $1;
+             }
-             my $meta_hash=$env{$key};
-             $output.='<tr><td>'.$meta_data_item.'</td>';
-             $output.='<td>Select one: <input type="checkbox" name="" value="one" /><br />';
-             $output.='Select many: <input type="checkbox" name="type" value="many" /></td>';
-             $output.='<td><input name="values" type="text" value="$env{$key_base.$item_num.'.'" /></td></tr>';
          }
      }
-     $output.='<tr><td><i>Create new instructor metadata item</i><br />';
+     &Apache::lonnet::coursedescription($env{'request.course.id'});
-     $output.='<input type="text" name="titlenew" /></td>';
+     $output.= &output_row($r, "Title");
-     $output.='<td>students must pick only one: <input type="checkbox" name="pickonenew" value="one" /><br />';
+     $output.= &output_row($r, "Subject");
-     $output.='Allow student to type extra info: <input type="checkbox" name="typeextranew" value="extra" /></td>';
+     $output.= &output_row($r, "Keywords");
-     $output.='<td><input name="valuesnew" type="text" value="" /></td></tr>';
-     $output.='<input type="hidden" name="serial" value="'.$next_meta.'" />';
-     $output.='<input type="hidden" name="state" value="save" /></tr>';
      $r->print(<<ENDenv);
          <form method="post" action="/adm/parmset?action=setinstmeta" name="form">
          <p>
          <table border=2>
-         <tr><th>Title</th><th>Options</th><th>Choices</th></tr>
+         <tr><th>Metadata Item</th><th>Values</th><th>Only One Choice</th><th>Student Can Add Choices</th></tr>
          $output
          </table>
          <input type="submit" name="instmeta" value="Update Instructor Metadata">

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

Removed from v.1.251
changed lines
	Added in v.1.254