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

Diff for /loncom/interface/lonparmset.pm between versions 1.244 and 1.245

version 1.244, 2005/08/29 22:57:09 version 1.245, 2005/08/30 00:40:12
Line 2729  sub setinstmeta { Line 2729  sub setinstmeta {
     my ($r)=@_;      my ($r)=@_;
     my $next_meta;      my $next_meta;
     my $output;      my $output;
       my $item_num;
     if ($env{'form.serial'}) {      if ($env{'form.serial'}) {
         $next_meta = $env{'form.serial'};          $next_meta = $env{'form.serial'};
     } else {      } else {
Line 2782  sub setinstmeta { Line 2783  sub setinstmeta {
         foreach my $key (sort keys %env) {          foreach my $key (sort keys %env) {
             if ($key=~m/^course\.$env{'request.course.id'}\.metadata\.\d+\.title$/) {              if ($key=~m/^course\.$env{'request.course.id'}\.metadata\.\d+\.title$/) {
                 $key=~m/^course\.$env{'request.course.id'}\.metadata\.(\d+)\.title/;                  $key=~m/^course\.$env{'request.course.id'}\.metadata\.(\d+)\.title/;
                                   $item_num = $1;
                 if ($1 ge $next_meta) {                  if ($1 ge $next_meta) {
                     $next_meta = $1 + 1;                      $next_meta = $1 + 1;
                 }                  }
                 $output.='<tr><td>'.$env{$key}.'</td>';                  $output.='<tr><td>'.$env{$key}.'</td>';
                 $output.='<td>Select one: <input type="radio" name="type" value="one" /><br />';                  $output.='<td>Select one: <input type="radio" name="type'.$item_num.'" value="one" /><br />';
                 $output.='Select many: <input type="radio" name="type" value="many" /></td>';                  $output.='Select many: <input type="radio" name="type'.$item_num.'" value="many" /></td>';
                 $output.='<td><input type="text" value="'.$env{$key.'.values'}.'" /></td></tr>';                  $output.='<td><input name="values'.$item_num.'" type="text" value="'.$env{$key.'.values'}.'" /></td></tr>';
             }              }
         }          }
     $output.='<tr><td><i>Create new instructor metadata item</i><br />';      $output.='<tr><td><i>Create new instructor metadata item</i><br />';
     $output.='<input type="text" name="instmeta" /></td><td>Options here</td>';      $output.='<input type="text" name="newitem" /></td>';
       $output.='<td>Select one: <input type="radio" name="typenew" value="one" /><br />';
       $output.='Select many: <input type="radio" name="typenew" value="many" /></td>';
       $output.='<td><input name="valuesnew" type="text" value="" /></td></tr>';
     $output.='<td><input type="hidden" name="serial" value="'.$next_meta.'" /></td></tr>';      $output.='<td><input type="hidden" name="serial" value="'.$next_meta.'" /></td></tr>';
     $r->print(<<ENDenv);             $r->print(<<ENDenv);       
         <form method="post" action="/adm/parmset?action=setinstmeta" name="form">          <form method="post" action="/adm/parmset?action=setinstmeta" name="form">
Removed from v.1.244  
changed lines
  Added in v.1.245

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