#
# Stuff like table creates and (later) alters
#
-# $Id$
+#
#
# Copyright (c) 2005 Dirk Koopman G1TLH
#
use DXDebug;
+use vars qw(@ISA);
@ISA = qw{DXSql};
sub show_tables
my $sth = $self->prepare($s);
$sth->execute;
my @out;
- push @out, $sth->fetchrow_array;
+ while (my @t = $sth->fetchrow_array) {
+ push @out, @t;
+ }
$sth->finish;
return @out;
}