- foreach my $i (0..($max_choices - 2)) {
- if ($K > $Beat_Matrix[$i][$max_choices - 1]) {
- $Drop{$i}++;
- print {$RESULTS} "Dropping Option", $order_to_options{$i + 1}{key},
- " \"", $order_to_options{$i + 1}{name},
- "\" because of Quorum\n";
- } else {
- print {$RESULTS} "Option ", $order_to_options{$i + 1}{key},
- " Reached quorum: $Beat_Matrix[$i][$max_choices - 1] > $K\n";
+ if ($params{default_option}) {
+ foreach my $i (0..($max_choices - 2)) {
+ if ($K > $Beat_Matrix[$i][$max_choices - 1]) {
+ $Drop{$i}++;
+ print {$RESULTS} "Dropping Option ", $order_to_options{$i + 1}{key},
+ " \"", $order_to_options{$i + 1}{name},
+ "\" because of Quorum ($K > $Beat_Matrix[$i][$max_choices - 1])\n";
+ } else {
+ print {$RESULTS} "Option ", $order_to_options{$i + 1}{key},
+ " Reached quorum: $Beat_Matrix[$i][$max_choices - 1] >= $K\n";
+ }