function grade_responses(&$question, &$state, $cmoptions)
{
wrsqz_swap('shortanswer', 'wshanprom', $question, $state);
if (wrsqz_grade_responses('shortanswer', 'wshanprom', $question, $state, $cmoptions)) {
return parent::grade_responses($question, $state, $cmoptions);
}
return true;
}
