Commit 26bd6e15 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

efa: Display possible values for every ambiguous input

parent 9abfcfa3
Loading
Loading
Loading
Loading
+4 −8
Original line number Diff line number Diff line
@@ -91,17 +91,13 @@ $www->submit_form(
$content = $www->content;

# ambiguous input
if ($content =~ /<span class="errorTextBold">Bitte auswählen<\/span>/s) {
	print STDERR "Ambiguous input for ";
	if ($content =~ /<select name="(?<what>(place|type|name)_(origin|destination))"/) {
		print STDERR "$+{what}\n";
	} else {
		print STDERR "unknown\n";
	}
	while ($content =~ /<option value="\d+:\d+"( selected)?>(?<choice>[^<]+)<\/option>/gs) {
foreach (split(/<span class="errorTextBold">Bitte auswählen<\/span>/s, $content)) {
	if (/<select name="(?<what>(place|type|name)_(origin|destination))"/) {
		print STDERR "Ambiguous input for $+{what}\n";
	}
	while (/<option value="\d+(:\d+)*"( selected)?>(?<choice>[^<]+)<\/option>/gs) {
		print STDERR "\t$+{choice}\n";
	}
	exit(1);
}

foreach (split(/<span class="labelTextBold"> \d+\. Fahrt<\/span>/, $content)) {