[system] / trunk / webwork / system / courseScripts / PGanswermacros.pl Repository:
ViewVC logotype

Diff of /trunk/webwork/system/courseScripts/PGanswermacros.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 134 Revision 135
2859 2859
2860sub is_zero_array { 2860sub is_zero_array {
2861 my $rh_ans = shift; 2861 my $rh_ans = shift;
2862 my %options = @_; 2862 my %options = @_;
2863 set_default_options( \%options, 2863 set_default_options( \%options,
2864 '_filter_name' => 'is_zero_array', 2864 '_filter_name' => 'is_zero_array',
2865 'allow_unknown_options' => 1,
2865 ); 2866 );
2866 my $array = $rh_ans -> {ra_differences}; 2867 my $array = $rh_ans -> {ra_differences};
2867 my $num = @$array; 2868 my $num = @$array;
2868 my $i; 2869 my $i;
2869 my $max = 0; my $mm; 2870 my $max = 0; my $mm;
3671 msg => '', 3672 msg => '',
3672 ); 3673 );
3673 # Checks 3674 # Checks
3674 3675
3675 my $ansCount = keys %evaluated_answers; # get the number of answers 3676 my $ansCount = keys %evaluated_answers; # get the number of answers
3677
3676 unless ($ansCount > 0 ) { 3678 unless ($ansCount > 0 ) {
3679
3677 $problem_result{msg} = "This problem did not ask any questions."; 3680 $problem_result{msg} = "This problem did not ask any questions.";
3678 return(\%problem_result,\%problem_state); 3681 return(\%problem_result,\%problem_state);
3679 } 3682 }
3680 3683
3681 if ($ansCount > 1 ) { 3684 if ($ansCount > 1 ) {

Legend:
Removed from v.134  
changed lines
  Added in v.135

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9