+ } 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");
+ }
+