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

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

version 1.239.2.2, 2005/09/23 20:19:18 version 1.253, 2005/09/28 23:19:25
Line 1954  sub crsenv { Line 1954  sub crsenv {
      'disableexampointprint'       'disableexampointprint'
                              );                               );
  foreach my $parameter (sort(keys(%values))) {   foreach my $parameter (sort(keys(%values))) {
             unless ($parameter =~ m/^internal\./) {              unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./)) {
                 if (! $descriptions{$parameter}) {                  if (! $descriptions{$parameter}) {
                     $descriptions{$parameter}=$parameter;                      $descriptions{$parameter}=$parameter;
                     push(@Display_Order,$parameter);                      push(@Display_Order,$parameter);
Line 2702  ENDMAINFORMHEAD Line 2702  ENDMAINFORMHEAD
     action => 'crsenv',      action => 'crsenv',
             permission => $parm_permission,              permission => $parm_permission,
             },              },
             { text => 'Set Instructor Defined Metadata',
       action => 'setinstmeta',
               permission => $parm_permission,
               },
           { text => 'Set/Modify Resource Parameters - Helper Mode',            { text => 'Set/Modify Resource Parameters - Helper Mode',
             url => '/adm/helper/parameter.helper',              url => '/adm/helper/parameter.helper',
             permission => $parm_permission,              permission => $parm_permission,
Line 2745  ENDMAINFORMHEAD Line 2749  ENDMAINFORMHEAD
     $r->print($menu_html);      $r->print($menu_html);
     return;      return;
 }  }
   ### Set instructor defined metadata
   sub output_row {
       my ($r, $field_name) = @_;
       my $output;
       my $active=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.active'};
       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 $checked;
       unless (defined($active)) {
           $active = 'no';
           $stuadd = 'yes';
           $values = 'Type a list of values separated by commas.';
           $onlyone = 'no';
       }
       $output.='<tr><td><strong>'.$field_name.'</strong></td>';
       $output.='<td><input name="'.$field_name.'_values" type="text" value="'.$values.'" /></td>';
       if ($onlyone eq 'no') {
           $checked = ' CHECKED ';
       } else {
           $checked = ' ';
       }
       $output.='<td><center><input type="checkbox" name="'.$field_name.'_onlyone"" value="yes"'.$checked.' /></center></td>';
       if ($stuadd eq 'yes') {
           $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;
       my $output;
       my $item_num;
       my $put_result;
       $r->print(&Apache::lonxml::xmlbegin());
       $r->print('<head>
               <title>LON-CAPA Set Instructor Metadata</title>
               </head>');
       $r->print(&Apache::loncommon::bodytag('Set Instructor Metadata'));
       $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
       'Set Instructor Metadata'));
       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.'};
       my $save_field = '';
       my $stuadd;
       my $onlyone;
       my $active;
       if ($env{'form.instmeta'}) {
           foreach my $field (sort %env) {
               if ($field=~m/^form.(.+)_(.+)$/) {
                   my $meta_field = $1;
                   my $meta_key = $2;
                   if ($save_field ne $meta_field) {
                       $save_field = $meta_field;
                  if ($env{'form.'.$meta_field.'_stuadd'}) {
                      $stuadd='yes';
                  } else {
                      $stuadd='no';
                  }
                  if ($env{'form.'.$meta_field.'_onlyone'}) {
                      $onlyone='no';
                  } else {
                      $onlyone='yes';
                  }
                  $active='yes';
                       my $name = 'metadata.'.$save_field;
                        $put_result = &Apache::lonnet::put('environment',
                                                     {'metadata.'.$meta_field.'.stuadd'=>$stuadd,
                                                       'metadata.'.$meta_field.'.onlyone'=>$onlyone,
                                                       'metadata.'.$meta_field.'.active'=>$active,
                                                      'metadata.'.$meta_field.'.values'=>$env{'form.'.$meta_field.'_values'},
                                                      },$dom,$crs);
                   }
               }
           }
           
       }
       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'});
       $output.= &output_row($r, "Title");
       $output.= &output_row($r, "Subject");
       $output.= &output_row($r, "Keywords");     
       $r->print(<<ENDenv);       
           <form method="post" action="/adm/parmset?action=setinstmeta" name="form">
           
           <p>
           <table border=2>
           <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">
           </form>
   
   ENDenv
           
       
       $r->print('</body>
                   </html>');
       return 'ok';
   }
 ##################################################  ##################################################
   
 sub defaultsetter {  sub defaultsetter {
Line 2932  sub handler { Line 3059  sub handler {
                                              'pres_marker',                                               'pres_marker',
                                              'pres_value',                                               'pres_value',
                                              'pres_type',                                               'pres_type',
                                              'udom','uname','symb']);                                               'udom','uname','symb','serial']);
   
   
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
Line 2979  sub handler { Line 3106  sub handler {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',              &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
     text=>"Overview Mode"});      text=>"Overview Mode"});
     &overview($r);      &overview($r);
           } elsif ($env{'form.action'} eq 'setinstmeta' && $parm_permission) {
               &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setinstmeta',
       text=>"Instructor Metadata"});
       &setinstmeta($r);
         } elsif ($env{'form.action'} eq 'newoverview' && $parm_permission) {          } elsif ($env{'form.action'} eq 'newoverview' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',              &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
     text=>"Overview Mode"});      text=>"Overview Mode"});
Removed from v.1.239.2.2  
changed lines
  Added in v.1.253

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