kick-developers

[Michael R. <mr...@us...>]

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