Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv10291
Modified Files:
status
Log Message:
Tools wird nicht mehr gebunden
Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access)
Index: status
===================================================================
RCS file: /cvsroot/kick/kick/status,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** status 14 Oct 2001 21:55:02 -0000 1.6
--- status 19 Mar 2002 09:08:43 -0000 1.7
***************
*** 11,15 ****
use Date::Calc qw(check_date Date_to_Days Add_Delta_Days);
use GetOption;
- use Tools;
use Text::ParseWords;
use strict;
--- 11,14 ----
***************
*** 53,57 ****
my ($jahr, $monat, $tag);
! &Sql ( sql => (sprintf 'SELECT MIN(datum) FROM abschluss WHERE datum >= %s', &DBDate(&ParseDate($opt { datum }))));
if (&ParseDBDate (&Sql_Zelle(0))) {
($jahr, $monat, $tag) = &ParseDBDate (&Sql_Zelle(0));
--- 52,56 ----
my ($jahr, $monat, $tag);
! &Sql ( sql => (sprintf 'SELECT MIN(datum) FROM abschluss WHERE datum >= %s', &Quote(&DBDate(&ParseDate($opt { datum })))));
if (&ParseDBDate (&Sql_Zelle(0))) {
($jahr, $monat, $tag) = &ParseDBDate (&Sql_Zelle(0));
***************
*** 71,75 ****
my $com = sprintf 'tauszg -bis "%s" -summe -csv',
&LongDate($jahr, $monat, $tag);
-
my @result = `perl $com`;
shift @result;
--- 70,73 ----
***************
*** 262,265 ****
--- 260,268 ----
$Log$
+ Revision 1.7 2002/03/19 09:08:43 mrau
+
+ Tools wird nicht mehr gebunden
+ Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access)
+
Revision 1.6 2001/10/14 21:55:02 mrau
Bugfix SQL-Statement zur Selektion des 'nächsten' Abschlusses
|
