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

Diff for /loncom/interface/lonparmset.pm between versions 1.518 and 1.519

version 1.518, 2011/12/08 21:37:46 version 1.519, 2011/12/15 01:21:41
Line 1394  sub lookUpTableParameter { Line 1394  sub lookUpTableParameter {
         'maxcollaborators' => 'misc',          'maxcollaborators' => 'misc',
         'scoreformat' => 'misc',          'scoreformat' => 'misc',
         'lenient' => 'grading',          'lenient' => 'grading',
           'retrypartial' => 'tries',
   
     );          );    
 }  }
Line 2145  sub assessparms { Line 2146  sub assessparms {
                         }                          }
                     }                      }
                 }                  }
             } elsif ($markers[$i] =~ /_(type|lenient)\&\d+$/) {              } elsif ($markers[$i] =~ /_(type|lenient|retrypartial)\&\d+$/) {
                 $name = $1;                  $name = $1;
                 $needsrelease =                  $needsrelease =
                     $Apache::lonnet::needsrelease{"parameter:$name:$values[$i]"};                      $Apache::lonnet::needsrelease{"parameter:$name:$values[$i]"};
Line 2807  sub storedata { Line 2808  sub storedata {
                 $name = 'type';                  $name = 'type';
             } elsif ($typeof eq 'string_lenient') {              } elsif ($typeof eq 'string_lenient') {
                 $name = 'lenient';                  $name = 'lenient';
               } elsif ($typeof eq 'string_yesno') {
                   if ($thiskey =~ /\.retrypartial$/) {
                       $name = 'retrypartial';
                   }
             }              }
             if ($name ne '') {              if ($name ne '') {
                 my ($needsrelease,$needsnewer);                  my ($needsrelease,$needsnewer);
Line 3155  sub string_selector { Line 3160  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') ||
           ($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} }) {
             next unless (ref($possibilities) eq 'ARRAY');              next unless (ref($possibilities) eq 'ARRAY');
Line 4606  sub oldversion_warning { Line 4612  sub oldversion_warning {
     my ($name,$value,$chostname,$cmajor,$cminor,$needsrelease) = @_;      my ($name,$value,$chostname,$cmajor,$cminor,$needsrelease) = @_;
     my $desc;      my $desc;
     my %stringtypes = (      my %stringtypes = (
                         type    => 'string_questiontype',                          type         => 'string_questiontype',
                         lenient => 'string_lenient'                          lenient      => 'string_lenient',
                           retrypartial => 'string_yesno',
                       );                        );
     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.518  
changed lines
  Added in v.1.519

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