Add a visible/invisible flag

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

diff --git a/src/InfoCon/buch/infocon b/src/InfoCon/buch/infocon
index 767b93e..877d024 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-2002,2003  Martin Schulze <joey@infodrom.org>
+#  Copyright (c) 1998-2003,2005  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
@@ -290,9 +290,9 @@ sub buchung_input
            $input[6] *= -1 if ($input[6] > 0);
        }
 
-       $query = sprintf ("INSERT INTO $table VALUES (%d,'%s','%s','%s',%8.2f,%8.2f,%8.2f,%d)",
+       $query = sprintf ("INSERT INTO $table VALUES (%d,'%s','%s','%s',%8.2f,%8.2f,%8.2f,%d,%d)",
                          &get_next_nr(), &date_to_string($input[0]), $input[1], $input[2], $input[4],
-                         $input[5], $input[6], $input[7]);
+                         $input[5], $input[6], 1, $input[7]);
        $sth = $dbh->do($query);
        $weiter = &read_input("Weiter",'j');
        $input[5] = 0.0;