#! /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
$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;