| … | |
… | |
| 447 | return ( |
447 | return ( |
| 448 | Value::Real->cmp_defaults, |
448 | Value::Real->cmp_defaults, |
| 449 | showHints => undef, |
449 | showHints => undef, |
| 450 | showLengthHints => undef, |
450 | showLengthHints => undef, |
| 451 | showParenHints => undef, |
451 | showParenHints => undef, |
| 452 | # partialCredit => undef, |
452 | partialCredit => undef, |
| 453 | partialCredit => 0, # only allow this once WW can deal with partial credit |
453 | # partialCredit => 0, # only allow this once WW can deal with partial credit |
| 454 | ordered => 0, |
454 | ordered => 0, |
| 455 | entry_type => undef, |
455 | entry_type => undef, |
| 456 | list_type => undef, |
456 | list_type => undef, |
| 457 | typeMatch => Value::makeValue($self->{data}[0]), |
457 | typeMatch => Value::makeValue($self->{data}[0]), |
| 458 | requireParenMatch => 1, |
458 | requireParenMatch => 1, |
| … | |
… | |
| 594 | if ($showLengthHints) { |
594 | if ($showLengthHints) { |
| 595 | $value =~ s/ or /s or /; # fix "interval or union" |
595 | $value =~ s/ or /s or /; # fix "interval or union" |
| 596 | push(@errors,"There should be more ${value}s in your $ltype") |
596 | push(@errors,"There should be more ${value}s in your $ltype") |
| 597 | if ($score == $m && scalar(@correct) > 0); |
597 | if ($score == $m && scalar(@correct) > 0); |
| 598 | push(@errors,"There should be fewer ${value}s in your $ltype") |
598 | push(@errors,"There should be fewer ${value}s in your $ltype") |
| 599 | if ($score < $maxscore && $score == $M); |
599 | if ($score < $maxscore && $score == $M && !$showHints); |
| 600 | } |
600 | } |
| 601 | |
601 | |
| 602 | # |
602 | # |
| 603 | # Finalize the score |
603 | # Finalize the score |
| 604 | # |
604 | # |
Parent Directory
| 
Revision Log
| 
Patch