From 527aa8973d82bbe4a113f2922814fb8cbc62c20a Mon Sep 17 00:00:00 2001
From: Joey Schulze <joey@infodrom.org>
Date: Wed, 16 Oct 2002 17:55:27 +0000
Subject: [PATCH 1/1] Finally added support for half typed date strings which
 really should be sufficient.

---
 src/InfoCon/buch/infocon | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/InfoCon/buch/infocon b/src/InfoCon/buch/infocon
index c634977..da37618 100755
--- a/src/InfoCon/buch/infocon
+++ b/src/InfoCon/buch/infocon
@@ -219,6 +219,8 @@ sub buchung_input
     my $weiter = 'y';
     my $i;
     my $query;
+    my ($date_sec,$date_min,$date_hour,$date_mday,$date_mon,$date_year,$date_wday,$date_isdst)
+	= localtime();
 
     print "Buchungseingabe\n\n";
     while ($weiter =~ /[JjYy]/) {
@@ -227,6 +229,19 @@ sub buchung_input
 	    if ($fieldname[$i] eq "Category" && $ans eq "?") {
 		@categories = &get_categories() if ($#categories);
 		printf "  %s\n", join (", ",@categories);
+	    } elsif ($fieldname[$i] eq "Datum") {
+		if ($ans =~ /^\d+\.\d+.\d+$/) {
+		    $input[$i] = $ans;
+		    $i++;
+		} elsif ($ans =~ /^\d+\.\d+.$/) {
+		    $ans .= $date_year + 1900;
+		    $input[$i] = $ans;
+		    $i++;
+		} elsif ($ans =~ /^\d+\.$/) {
+		    $ans .= sprintf ("%d.%d", $date_mon + 1, $date_year + 1900);
+		    $input[$i] = $ans;
+		    $i++;
+		}
 	    } else {
 		$input[$i] = $ans;
 		$i++;
-- 
2.20.1