- } elsif ($input eq '7') {
- my $sel;
- do {
- print "[a] ", UVmessage::get("MENU_VOTING_CORRECT"), "\n",
- "[b] ", UVmessage::get("MENU_VOTING_WRONG"), "\n\n",
- UVmessage::get("MENU_PROMPT");
- $sel = <STDIN>;
- } until ($sel =~ /^[ab]$/i);
-
- if ($sel =~ /^a$/i) {
- delete $errors{NoVoting};
- delete $errors{WrongVoting};
- } else {
- $errors{WrongVoting} = UVmessage::get("MENU_WRONGVOTING");
- }
-