From: Michael R. <mr...@us...> - 2002-03-19 09:08:34
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv10216 Modified Files: report Log Message: Tools wird nicht mehr gebunden Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access) Index: report =================================================================== RCS file: /cvsroot/kick/kick/report,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** report 4 Oct 2001 23:16:42 -0000 1.4 --- report 19 Mar 2002 09:08:31 -0000 1.5 *************** *** 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 ---- *************** *** 46,50 **** my ($jahr1, $monat1, $tag1, $jahr0, $monat0, $tag0); ! &Sql ( sql => (sprintf 'SELECT MIN(datum) FROM abschluss WHERE datum >= %s', &DBDate(&ParseDate($opt { datum })))); if (&ParseDBDate (&Sql_Zelle(0))) { ($jahr1, $monat1, $tag1) = &ParseDBDate (&Sql_Zelle(0)); --- 45,49 ---- my ($jahr1, $monat1, $tag1, $jahr0, $monat0, $tag0); ! &Sql ( sql => (sprintf 'SELECT MIN(datum) FROM abschluss WHERE datum >= %s', &Quote(&DBDate(&ParseDate($opt { datum }))))); if (&ParseDBDate (&Sql_Zelle(0))) { ($jahr1, $monat1, $tag1) = &ParseDBDate (&Sql_Zelle(0)); *************** *** 56,60 **** # Vortragsdatum ! &Sql ( sql => (sprintf 'SELECT MAX(datum) FROM abschluss WHERE datum < %s', &DBDate(&ParseDate($opt { datum })))); if (&ParseDBDate (&Sql_Zelle(0))) { ($jahr0, $monat0, $tag0) = &Add_Delta_Days(&ParseDBDate (&Sql_Zelle(0)), 1); --- 55,59 ---- # Vortragsdatum ! &Sql ( sql => (sprintf 'SELECT MAX(datum) FROM abschluss WHERE datum < %s', &Quote(&DBDate(&ParseDate($opt { datum }))))); if (&ParseDBDate (&Sql_Zelle(0))) { ($jahr0, $monat0, $tag0) = &Add_Delta_Days(&ParseDBDate (&Sql_Zelle(0)), 1); *************** *** 72,76 **** my $preis; ! &Sql ( sql => (sprintf 'SELECT preis FROM abschluss WHERE datum = %s', &DBDate($jahr1, $monat1, $tag1))); if (&Sql_Zeilen) { $preis = &Sql_Zelle(0); --- 71,75 ---- my $preis; ! &Sql ( sql => (sprintf 'SELECT preis FROM abschluss WHERE datum = %s', &Quote(&DBDate($jahr1, $monat1, $tag1)))); if (&Sql_Zeilen) { $preis = &Sql_Zelle(0); *************** *** 411,414 **** --- 410,418 ---- $Log$ + Revision 1.5 2002/03/19 09:08:31 mrau + + Tools wird nicht mehr gebunden + Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access) + Revision 1.4 2001/10/04 23:16:42 mrau Bugfix :endofperl behoben |