Be more lax in what to accept

diff --git a/src/InfoCon/buch/infocon b/src/InfoCon/buch/infocon
index 287e0d3..5f1f86a 100755 (executable)
--- a/src/InfoCon/buch/infocon
+++ b/src/InfoCon/buch/infocon
@@ -243,7 +243,7 @@ sub buchung_input
        = localtime();
 
     print "Buchungseingabe\n\n";
-    while ($weiter =~ /[JjYy]/) {
+    while ($weiter =~ /[JjYy1]/) {
        $i=0;while ($i <= $#fieldname) {
            $ans = &read_input($fieldname[$i],$input[$i]);
            if ($fieldname[$i] eq "Category" && $ans eq "?") {
@@ -262,6 +262,12 @@ sub buchung_input
                    $input[$i] = $ans;
                    $i++;
                }
+           } elsif ($fieldname[$i] eq "Paid") {
+               if ($ans =~ /[1jJyY]/) {
+                   $input[$i] = 1;
+               } else {
+                   $input[$i] = 0;
+               }
            } else {
                $input[$i] = $ans;
                $i++;