[Kick-developers] CVS: kick dosql,1.4,1.5

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

Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv9837

Modified Files:
	dosql 
Log Message:

Tools wird nicht mehr gebunden
Anpassung an Rückgabe-Array &Sql_Spalten


Index: dosql
===================================================================
RCS file: /cvsroot/kick/kick/dosql,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** dosql	4 Oct 2001 23:16:42 -0000	1.4
--- dosql	19 Mar 2002 09:07:21 -0000	1.5
***************
*** 10,14 ****
  use Kick;
  use GetOption;
- use Tools;
  use strict;
  
--- 10,13 ----
***************
*** 106,117 ****
          # Ouput
  
!         if (scalar @{&Sql_Spalten} > 0) {
! 
              # Result-Set
!             printf "\n%s\n", &XTab (data => [&Sql_Spalten, @{&Sql_Daten}], header => 1);
              printf "    %d records.\n\n", &Sql_Zeilen;
          }
!         elsif (&Sql_Zeilen > 0) {
! 
              # Datenmanipulation
              printf "%d manipulierte Zeile(n).\n", scalar &Sql_Zeilen;
--- 105,114 ----
          # Ouput
  
!         if (&Sql_Daten > 0) {
              # Result-Set
!             printf "\n%s\n", &XTab (data => [\@{&Sql_Spalten}, @{&Sql_Daten}], header => 1);
              printf "    %d records.\n\n", &Sql_Zeilen;
          }
!         elsif (&Sql_Zeilen) {
              # Datenmanipulation
              printf "%d manipulierte Zeile(n).\n", scalar &Sql_Zeilen;
***************
*** 193,196 ****
--- 190,198 ----
  
      $Log$
+     Revision 1.5  2002/03/19 09:07:21  mrau
+ 
+     Tools wird nicht mehr gebunden
+     Anpassung an Rückgabe-Array &Sql_Spalten
+ 
      Revision 1.4  2001/10/04 23:16:42  mrau
      Bugfix :endofperl behoben