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') { |