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

Diff for /loncom/interface/lonparmset.pm between versions 1.520 and 1.521

version 1.520, 2011/12/28 21:49:54 version 1.521, 2012/03/13 05:37:49
Line 1295  sub parmmenu { Line 1295  sub parmmenu {
     }      }
   
     function checkdisset() {      function checkdisset() {
     checkthis('discussend','pscat');       checkthis('discussend','pscat');
      checkthis('discusshide','pscat');       checkthis('discusshide','pscat');
        checkthis('discussvote','pscat');
     }      }
   
     function checkcontdates() {      function checkcontdates() {
Line 1395  sub lookUpTableParameter { Line 1396  sub lookUpTableParameter {
         'scoreformat' => 'misc',          'scoreformat' => 'misc',
         'lenient' => 'grading',          'lenient' => 'grading',
         'retrypartial' => 'tries',          'retrypartial' => 'tries',
           'discussvote'  => 'misc',
   
     );          );    
 }  }
Line 1942  sub standardkeyorder { Line 1944  sub standardkeyorder {
         'parameter_0_tol' => 16,          'parameter_0_tol' => 16,
         'parameter_0_sig' => 17,          'parameter_0_sig' => 17,
         'parameter_0_turnoffunit' => 18,          'parameter_0_turnoffunit' => 18,
             'parameter_0_discussend' => 19,          'parameter_0_discussend' => 19,
             'parameter_0_discusshide' => 20,          'parameter_0_discusshide' => 20,
  'parameter_0_printopendate'  =>  21,          'parameter_0_discussvote' => 21,
  'parameter_0_printclosedate' =>  22);   'parameter_0_printopendate'  =>  22,
    'parameter_0_printclosedate' =>  23);
 }  }
   
   
Line 2146  sub assessparms { Line 2149  sub assessparms {
                         }                          }
                     }                      }
                 }                  }
             } elsif ($markers[$i] =~ /_(type|lenient|retrypartial)\&\d+$/) {              } elsif ($markers[$i] =~ /_(type|lenient|retrypartial|discussvote)\&\d+$/) {
                 $name = $1;                  $name = $1;
                 $needsrelease =                  $needsrelease =
                     $Apache::lonnet::needsrelease{"parameter:$name:$values[$i]"};                      $Apache::lonnet::needsrelease{"parameter:$name:$values[$i]"};
Line 2808  sub storedata { Line 2811  sub storedata {
                 $name = 'type';                  $name = 'type';
             } elsif ($typeof eq 'string_lenient') {              } elsif ($typeof eq 'string_lenient') {
                 $name = 'lenient';                  $name = 'lenient';
               } elsif ($typeof eq 'string_discussvote') {
                   $name = 'discussvote';
             } elsif ($typeof eq 'string_yesno') {              } elsif ($typeof eq 'string_yesno') {
                 if ($thiskey =~ /\.retrypartial$/) {                  if ($thiskey =~ /\.retrypartial$/) {
                     $name = 'retrypartial';                      $name = 'retrypartial';
Line 3140  my %strings = Line 3145  my %strings =
      'string_lenient'       'string_lenient'
              => [['yes', 'Yes' ],               => [['yes', 'Yes' ],
                  [ 'no', 'No' ],                   [ 'no', 'No' ],
                  [ 'default', 'Default - only bubblesheet grading is lenient' ]]                    [ 'default', 'Default - only bubblesheet grading is lenient' ]],
        'string_discussvote'
                => [['yes','Yes'],
                    ['notended','Yes, unless discussion ended'],
                    ['no','No']],
      );       );
   
 sub standard_string_options {  sub standard_string_options {
Line 3161  sub string_selector { Line 3170  sub string_selector {
     my %skiptype;      my %skiptype;
     if (($thistype eq 'string_questiontype') ||       if (($thistype eq 'string_questiontype') || 
         ($thistype eq 'string_lenient') ||          ($thistype eq 'string_lenient') ||
           ($thistype eq 'string_discussvote') ||
         ($name eq 'retrypartial')) {          ($name eq 'retrypartial')) {
         my ($got_chostname,$chostname,$cmajor,$cminor);           my ($got_chostname,$chostname,$cmajor,$cminor); 
         foreach my $possibilities (@{ $strings{$thistype} }) {          foreach my $possibilities (@{ $strings{$thistype} }) {
Line 4625  sub oldversion_warning { Line 4635  sub oldversion_warning {
                         type         => 'string_questiontype',                          type         => 'string_questiontype',
                         lenient      => 'string_lenient',                          lenient      => 'string_lenient',
                         retrypartial => 'string_yesno',                          retrypartial => 'string_yesno',
                           discussvote  => 'string_discussvote',
                       );                        );
     if (exists($stringtypes{$name})) {      if (exists($stringtypes{$name})) {
         if (ref($strings{$stringtypes{$name}}) eq 'ARRAY') {          if (ref($strings{$stringtypes{$name}}) eq 'ARRAY') {
Removed from v.1.520  
changed lines
  Added in v.1.521

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