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

Diff for /loncom/interface/courseprefs.pm between versions 1.49.2.14 and 1.49.2.17

version 1.49.2.14, 2014/06/09 20:36:56 version 1.49.2.17, 2015/03/11 00:28:28
Line 463  sub handler { Line 463  sub handler {
                      help => 'Course_Prefs_Display',                       help => 'Course_Prefs_Display',
                      ordered => ['default_xml_style','pageseparators',                       ordered => ['default_xml_style','pageseparators',
                                  'disable_receipt_display','texengine',                                   'disable_receipt_display','texengine',
                                  'tthoptions'],                                   'tthoptions','uselcmath','usejsme'],
                       itemtext => {                        itemtext => {
                           default_xml_style       => 'Default XML style file',                            default_xml_style       => 'Default XML style file',
                           pageseparators          => 'Visibly Separate Items on Pages',                            pageseparators          => 'Visibly Separate Items on Pages',
                           disable_receipt_display => 'Disable display of problem receipts',                            disable_receipt_display => 'Disable display of problem receipts',
                           texengine               => 'Force use of a specific math rendering engine',                            texengine               => 'Force use of a specific math rendering engine',
                           tthoptions              => 'Default set of options to pass to tth/m when converting TeX',                            tthoptions              => 'Default set of options to pass to tth/m when converting TeX',
                             uselcmath               => 'Student formula entry uses inline preview, not DragMath pop-up',
                             usejsme                 => 'Molecule editor uses JSME (HTML5) in place of JME (Java)',
                                   },                                    },
                   },                    },
         'grading' =>          'grading' =>
Line 1405  sub store_changes { Line 1407  sub store_changes {
                                         $displayval = &Apache::lonlocal::locallocaltime($displayval);                                          $displayval = &Apache::lonlocal::locallocaltime($displayval);
                                     } elsif ($key eq 'categories') {                                      } elsif ($key eq 'categories') {
                                         $displayval = $env{'form.categories_display'};                                          $displayval = $env{'form.categories_display'};
                                     } elsif ($key eq 'canuse_pdfforms') {                                      } elsif (($key eq 'canuse_pdfforms') || ($key eq 'usejsme') || ($key eq 'uselcmath')) {
                                         if ($changes->{$item}{$key} eq '1') {                                          if ($changes->{$item}{$key} eq '1') {
                                             $displayval = &mt('Yes');                                              $displayval = &mt('Yes');
                                         } elsif ($changes->{$item}{$key} eq '0') {                                          } elsif ($changes->{$item}{$key} eq '0') {
Line 2319  sub display_loncaparev_constraints { Line 2321  sub display_loncaparev_constraints {
     my (%fromparam,%rowspan,%bymap,%byresource,@scopeorder,%toshow,%allmaps,      my (%fromparam,%rowspan,%bymap,%byresource,@scopeorder,%toshow,%allmaps,
         %byresponsetype,%bysubmission,%fromblocks);          %byresponsetype,%bysubmission,%fromblocks);
     @scopeorder = ('all','section/group','user');      @scopeorder = ('all','section/group','user');
       my $now = time;
     my $resourcedata = &Apache::lonparmset::readdata($cnum,$cdom);      my $resourcedata = &Apache::lonparmset::readdata($cnum,$cdom);
     if (ref($resourcedata) eq 'HASH') {      if (ref($resourcedata) eq 'HASH') {
         foreach my $key (keys(%{$resourcedata})) {          foreach my $key (keys(%{$resourcedata})) {
Line 2332  sub display_loncaparev_constraints { Line 2335  sub display_loncaparev_constraints {
                              } else {                               } else {
                                  $value = '';                                   $value = '';
                              }                               }
                            } elsif ($item eq 'printstartdate') {
                                if ($value =~ /^\d+$/) {
                                    if ($value > $now) {
                                        $value = 'future';
                                    }
                                }
                            } elsif ($item eq 'printenddate') {
                                if ($value =~ /^\d+$/) {
                                    if ($value < $now) {
                                        $value = 'past';
                                    }
                                }
   
                          }                           }
                          my ($middle,$scope,$which,$level,$map,$resource);                           my ($middle,$scope,$which,$level,$map,$resource);
                          if (grep(/^\Q$value\E$/,@{$Apache::lonrelrequtils::checkparms{$item}})) {                           if (grep(/^\Q$value\E$/,@{$Apache::lonrelrequtils::checkparms{$item}})) {
Line 2611  sub display_loncaparev_constraints { Line 2627  sub display_loncaparev_constraints {
         }          }
         foreach my $map (keys(%allmaps)) {          foreach my $map (keys(%allmaps)) {
             my $mapres = $navmap->getResourceByUrl($map);              my $mapres = $navmap->getResourceByUrl($map);
             my $mapsymb = $mapres->symb();  
             $toshow{$mapsymb} = 1;  
             if (ref($mapres)) {              if (ref($mapres)) {
                   my $mapsymb = $mapres->symb();
                   $toshow{$mapsymb} = 1;
                 my $pcslist = $mapres->map_hierarchy();                  my $pcslist = $mapres->map_hierarchy();
                 if ($pcslist ne '') {                  if ($pcslist ne '') {
                     foreach my $pc (split(/,/,$pcslist)) {                      foreach my $pc (split(/,/,$pcslist)) {
Line 3684  sub print_appearance { Line 3700  sub print_appearance {
                    input => 'textbox',                     input => 'textbox',
                    size => 40,                     size => 40,
                  },                   },
            'uselcmath' => {
                      text => '<b>'.&mt($itemtext->{'uselcmath'}).'</b>',
                      input => 'radio',
                    },
            'usejsme'  => {
                      text => '<b>'.&mt($itemtext->{'usejsme'}).'</b>',
                      input => 'radio',
                    },
     );      );
     return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype,'appearance');      return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype,'appearance');
 }  }
Line 3945  sub item_table_row_end { Line 3969  sub item_table_row_end {
 }  }
   
 sub yesno_radio {  sub yesno_radio {
     my ($item,$settings) = @_;      my ($item,$settings,$unsetdefault,$valueyes,$valueno) = @_;
     my $itemon = ' ';      my $itemon = ' ';
     my $itemoff = ' checked="checked" ';      my $itemoff = ' checked="checked" ';
       if (($valueyes eq '') && ($valueno eq '')) {
           $valueyes = 'yes';
           $valueno = '';
       }
     if (ref($settings) eq 'HASH') {      if (ref($settings) eq 'HASH') {
         if ($settings->{$item} eq 'yes') {          if ($settings->{$item} eq $valueyes) {
             $itemon = $itemoff;              $itemon = $itemoff;
             $itemoff = ' ';              $itemoff = ' ';
         }          }
           unless (exists($settings->{$item})) {
               if ($unsetdefault eq $valueyes) {
                   $itemon = $itemoff;
                   $itemoff = ' ';
               }
           }
     }      }
     return '<span class="LC_nobreak"><label>'.      return '<span class="LC_nobreak"><label>'.
            '<input type="radio" name="'.$item.'"'.             '<input type="radio" name="'.$item.'"'.
            $itemon.' value="yes" />'.&mt('Yes').'</label>&nbsp;'.             $itemon.' value="'.$valueyes.'" />'.&mt('Yes').'</label>&nbsp;'.
            '<label><input type="radio" name="'.$item.'"'.             '<label><input type="radio" name="'.$item.'"'.
            $itemoff.' value="" />'.&mt('No').'</label></span>';             $itemoff.' value="'.$valueno.'" />'.&mt('No').'</label></span>';
 }  }
   
 sub select_from_options {  sub select_from_options {
Line 4043  sub make_item_rows { Line 4077  sub make_item_rows {
                    &Apache::lonhtmlcommon::date_setter('display',$item,                     &Apache::lonhtmlcommon::date_setter('display',$item,
                                                        $settings->{$item});                                                         $settings->{$item});
             } elsif ($items->{$item}{input} eq 'radio') {              } elsif ($items->{$item}{input} eq 'radio') {
                 $datatable .= &yesno_radio($item,$settings);                  my ($unsetdefault,$valueyes,$valueno);
                   if (($item eq 'usejsme') || ($item eq 'uselcmath')) {
                        my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);
                        unless ($domdefs{$item} eq '0') {
                            $unsetdefault = 1;
                        }
                        $valueyes = "1";
                        $valueno = "0";
                   }
                   $datatable .= &yesno_radio($item,$settings,$unsetdefault,$valueyes,$valueno);
             } elsif ($items->{$item}{input} eq 'selectbox') {              } elsif ($items->{$item}{input} eq 'selectbox') {
                 my $curr = $settings->{$item};                  my $curr = $settings->{$item};
                 $datatable .=                  $datatable .=
Line 4119  sub nothidepriv_row { Line 4162  sub nothidepriv_row {
                           '<span class="LC_nobreak"><label>'.                            '<span class="LC_nobreak"><label>'.
                           '<input type="radio" name="'.$item.'_'.$user.'"'.                            '<input type="radio" name="'.$item.'_'.$user.'"'.
                           $hideon.' value="" />'.&mt('Hidden').'</label>&nbsp;'.                            $hideon.' value="" />'.&mt('Hidden').'</label>&nbsp;'.
                           '<label><input type="radio" name="'.$item.'_'.$user.'"'.                          $hideoff.' value="yes" />'.&mt('Shown').'</label></span></td>'.                            '<label><input type="radio" name="'.$item.'_'.$user.'"'.
                             $hideoff.' value="yes" />'.&mt('Shown').'</label></span></td>'.
                           '</tr>';                            '</tr>';
         }          }
         $datatable .= '</table>';          $datatable .= '</table>';
Removed from v.1.49.2.14  
changed lines
  Added in v.1.49.2.17

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