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

Diff for /loncom/interface/lonparmset.pm between versions 1.240 and 1.258

version 1.240, 2005/08/26 18:57:42 version 1.258, 2005/10/06 22:05:56
Line 1921  sub crsenv { Line 1921  sub crsenv {
      'disablesigfigs'       'disablesigfigs'
          => '<b>'.&mt('Disable checking of Significant Figures').'</b><br />'.           => '<b>'.&mt('Disable checking of Significant Figures').'</b><br />'.
                     ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',                      ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
        'disableexampointprint'
            => '<b>'.&mt('Disable automatically printing point values onto exams.').'</b><br />'.
                       ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
      'tthoptions'       'tthoptions'
          => '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>'           => '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>'
              );                ); 
Line 1947  sub crsenv { Line 1950  sub crsenv {
                              'default_enrollment_start_date',                               'default_enrollment_start_date',
                              'default_enrollment_end_date',                               'default_enrollment_end_date',
      'tthoptions',       'tthoptions',
      'disablesigfigs'       'disablesigfigs',
        '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 2189  sub listdata { Line 2193  sub listdata {
     my $pointer=0;      my $pointer=0;
     $tableopen=0;      $tableopen=0;
     my $foundkeys=0;      my $foundkeys=0;
       my %keyorder=&standardkeyorder();
     foreach my $thiskey (sort {      foreach my $thiskey (sort {
  if ($sortorder eq 'realmstudent') {   if ($sortorder eq 'realmstudent') {
     my ($astudent,$arealm)=($a=~/^$env{'request.course.id'}\.([^\.]+)\.(.+)\.[^\.]+$/);      my ($astudent,$arealm)=($a=~/^\Q$env{'request.course.id'}\E\.\[([^\.]+)\]\.(.+)\.[^\.]+$/);
     my ($bstudent,$brealm)=($b=~/^$env{'request.course.id'}\.([^\.]+)\.(.+)\.[^\.]+$/);      my ($bstudent,$brealm)=($b=~/^\Q$env{'request.course.id'}\E\.\[([^\.]+)\]\.(.+)\.[^\.]+$/);
     if (!defined($astudent) && !defined($bstudent) &&      if (!defined($astudent)) {
  !defined($arealm) && !defined($brealm)) {   ($arealm)=($a=~/^\Q$env{'request.course.id'}\E\.(.+)$/);
  ($arealm)=($a=~/^$env{'request.course.id'}\.(.+)\.[^\.]+$/);      }
  ($brealm)=($b=~/^$env{'request.course.id'}\.(.+)\.[^\.]+$/);      if (!defined($bstudent)) {
    ($brealm)=($b=~/^\Q$env{'request.course.id'}\E\.(.+)$/);
       }
       $arealm=~s/\.type//;
       my ($ares, $aparm) = ($arealm=~/^(.*)\.(.*)$/);
       $aparm=$keyorder{'parameter_0_'.$aparm};
       $brealm=~s/\.type//;
       my ($bres, $bparm) = ($brealm=~/^(.*)\.(.*)$/);
       $bparm=$keyorder{'parameter_0_'.$bparm};   
       if ($ares eq $bres) {
    if (defined($aparm) && defined($bparm)) {
       ($aparm <=> $bparm);
    } elsif (defined($aparm)) {
       -1;
    } elsif (defined($bparm)) {
       1;
    } else {
       ($arealm cmp $brealm) || ($astudent cmp $bstudent);
    }
       } else {
    ($arealm cmp $brealm) || ($astudent cmp $bstudent);
     }      }
             ($arealm cmp $brealm) || ($astudent cmp $bstudent);  
  } else {   } else {
     $a cmp $b;      $a cmp $b;
  }   }
     } keys %{$listdata}) {      } keys %{$listdata}) {
     
  if ($$listdata{$thiskey.'.type'}) {   if ($$listdata{$thiskey.'.type'}) {
             my $thistype=$$listdata{$thiskey.'.type'};              my $thistype=$$listdata{$thiskey.'.type'};
             if ($$resourcedata{$thiskey.'.type'}) {              if ($$resourcedata{$thiskey.'.type'}) {
Line 2677  ENDMAINFORMHEAD Line 2702  ENDMAINFORMHEAD
     action => 'crsenv',      action => 'crsenv',
             permission => $parm_permission,              permission => $parm_permission,
             },              },
           { text => 'Set Instructor Defined Metadata',            { text => 'Set Portfolio Metadata',
     action => 'setinstmeta',      action => 'setinstmeta',
             permission => $parm_permission,              permission => $parm_permission,
             },              },
Line 2724  ENDMAINFORMHEAD Line 2749  ENDMAINFORMHEAD
     $r->print($menu_html);      $r->print($menu_html);
     return;      return;
 }  }
 ### Set instructor defined metadata  ### Set portfolio metadata
   sub output_row {
       my ($r, $field_name, $field_text) = @_;
       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.';
       }
       if ($options =~ m/active/) {
           $checked = ' checked="checked" ';
       } else {
           $checked = '  ';
       }
       $output.='<tr><td><center><input type="checkbox" name="'.$field_name.'_active" value="yes"'.$checked.' /></center></td>';
       $output.='<td><strong>'.$field_text.'</strong></td>';
       $output.='<td><input name="'.$field_name.'_values" type="text" value="'.$values.'" /></td>';
       if ($options =~ m/onlyone/) {
           $checked = ' 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="checked" ';
       } else {
           $checked = ' ';
       }
       $output.='<td><input type="checkbox" name="'.$field_name.'_stuadd" value="yes"'.$checked.' /></td>';
       
       $output.='</tr>';
       return ($output);
   }
 sub setinstmeta {  sub setinstmeta {
     my ($r)=@_;      my ($r)=@_;
      my $setoutput='';      my $next_meta;
       my $output;
       my $item_num;
       my $put_result;
     $r->print(&Apache::lonxml::xmlbegin());      $r->print(&Apache::lonxml::xmlbegin());
     $r->print('<head>      $r->print('<head>
             <title>LON-CAPA Set Instructor Metadata</title>              <title>LON-CAPA Set Portfolio Metadata</title>
             </head>');              </head>');
                   $r->print(&Apache::loncommon::bodytag('Set Portfolio Metadata'));
     $r->print(&Apache::loncommon::bodytag('Set Instructor Metadata'));  
     $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,      $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
     'Set Instructor Metadata'));      'Set Portfolio Metadata'));
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
    $r->print('Set instructor metadata here');      my $key_base = $env{'course.'.$env{'request.course.id'}.'.metadata.'};
       my $save_field = '';
       if ($env{'form.instmeta'}) {
           foreach my $field (sort(keys(%env))) {
               if ($field=~m/^form.(.+)_(.+)$/) {
                   my $options;
                   my $meta_field = $1;
                   my $meta_key = $2;
                   if ($save_field ne $meta_field) {
                       $save_field = $meta_field;
                  if ($env{'form.'.$meta_field.'_stuadd'}) {
                      $options.='stuadd,';
                  } 
                  if ($env{'form.'.$meta_field.'_onlyone'}) {
                      $options.='onlyone,';
                  } 
                  if ($env{'form.'.$meta_field.'_active'}) {
                      $options.='active,';
                  }
                       my $name = 'metadata.'.$save_field;
                        $put_result = &Apache::lonnet::put('environment',
                                                     {'metadata.'.$meta_field.'.options'=>$options,
                                                      'metadata.'.$meta_field.'.values'=>$env{'form.'.$meta_field.'_values'},
                                                      },$dom,$crs);
                   }
               }
           }
           
       }
       &Apache::lonnet::coursedescription($env{'request.course.id'});
       my %metadata_fields = &Apache::lonmeta::fieldnames('portfolio');
       
       foreach my $field (sort(keys(%metadata_fields))) {
    $output.= &output_row($r, $field, $metadata_fields{$field});
       }
       $r->print(<<ENDenv);       
           <form method="post" action="/adm/parmset?action=setinstmeta" name="form">
           
           <p>
           <table border=2>
           <tr><th>Active</th><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 Portfolio Metadata">
           </form>
   
   ENDenv
           
       
       $r->print('</body>
                   </html>');
     return 'ok';      return 'ok';
 }  }
 ##################################################  ##################################################
Line 2926  sub handler { Line 3037  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 2975  sub handler { Line 3086  sub handler {
     &overview($r);      &overview($r);
         } elsif ($env{'form.action'} eq 'setinstmeta' && $parm_permission) {          } elsif ($env{'form.action'} eq 'setinstmeta' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setinstmeta',              &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setinstmeta',
     text=>"Instructor Metadata"});      text=>"Portfolio Metadata"});
     &setinstmeta($r);      &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',
Removed from v.1.240  
changed lines
  Added in v.1.258

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.