Must not initialise the terminal if it's not needed, otherwise the

[infodrom.org/service.infodrom.org] / src / InfoCon / buch / infocon

diff --git a/src/InfoCon/buch/infocon b/src/InfoCon/buch/infocon
index 45e64f5..8534e2b 100755 (executable)
--- a/src/InfoCon/buch/infocon
+++ b/src/InfoCon/buch/infocon
@@ -1,7 +1,7 @@
 #! /usr/bin/perl
 
 #  infocon - Admin-Tool for InfoCon
-#  Copyright (c) 1998-2003,2005-6,7  Martin Schulze <joey@infodrom.org>
+#  Copyright (c) 1998-2003,2005-8  Martin Schulze <joey@infodrom.org>
 #
 #  This program is free software; you can redistribute it and/or modify
 #  it under the terms of the GNU General Public License as published by
@@ -31,6 +31,7 @@ if (!$dbh) {
 }
 
 @categories = ();
+$term = undef;
 
 sub sdate
 {
@@ -167,6 +168,26 @@ sub sales_list
     }
 }
 
+sub get_descriptions
+{
+    my $query;
+    my @row;
+    my $sth;
+    my @arr = ();
+    my ($date_sec,$date_min,$date_hour,$date_mday,$date_mon,$date_year,$date_wday,$date_isdst)
+       = localtime;
+
+    $query  = sprintf("SELECT DISTINCT description FROM %s WHERE date LIKE '%d%%' ORDER by description",
+                     $table, $date_year+1900);
+    $sth = $dbh->prepare($query);
+    if ($sth && ($rc = $sth->execute) > 0) {
+       while (@row = $sth->fetchrow_array) {
+           push(@arr, $row[0]) if ($row[0]);
+       }
+    }
+    return @arr;
+}
+
 sub get_categories
 {
     my $query;
@@ -207,6 +228,7 @@ sub read_input
     } elsif ($ans eq ".") {
        $ans = '';
     }
+    $ans =~ s/ *$//;
     return $ans;
 }
 
@@ -242,14 +264,37 @@ sub buchung_input
     my ($date_sec,$date_min,$date_hour,$date_mday,$date_mon,$date_year,$date_wday,$date_isdst)
        = localtime;
 
+    @categories = get_categories unless @categories;
+    my @descriptions = get_descriptions;
+
+    $term = new Term::ReadLine '' unless $term;
+
+    $term->addhistory($_) foreach (@categories);
+    $term->addhistory($_) foreach (@descriptions);
+
+    my $attribs = $term->Attribs;
+
     $sth = $dbh->prepare ("INSERT INTO $table VALUES (?,?,?,?,?,?,?,?,?)");
 
     print "Buchungseingabe\n\n";
     while ($weiter =~ /[JjYy1]/) {
        $i=0;while ($i <= $#fieldname) {
+           if ($fieldname[$i] eq "Category") {
+               $attribs->{completion_entry_function} = $attribs->{list_completion_function};
+               $attribs->{completion_word} = \@categories;
+           } elsif ($fieldname[$i] eq "Description") {
+               $attribs->{completion_entry_function} = $attribs->{list_completion_function};
+               $attribs->{completion_word} = \@descriptions;
+           } elsif ($fieldname[$i] eq "Tax assigned") {
+               if ($input[$i-1] == 0) {
+                   $input[$i++] = 0;
+                   next;
+               }
+           } else {
+               $attribs->{completion_word} = undef;
+           }
            $ans = read_input($fieldname[$i],$input[$i]);
            if ($fieldname[$i] eq "Category" && $ans eq "?") {
-               @categories = get_categories unless @categories;
                printf "  %s\n", join (", ",@categories);
            } elsif ($fieldname[$i] eq "Datum") {
                if ($ans =~ /^\d+\.\d+.\d+$/) {
@@ -316,7 +361,6 @@ sub usage
     exit 0;
 }
 
-$term = new Term::ReadLine '';
 $i = 0;
 $opt_all = 0;
 $opt_verbose = 0;