2 |
## $Id$ |
## $Id$ |
3 |
## -------------------------------------------------------------------------------- |
## -------------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.9 2003/02/09 04:47:58 joko |
6 |
|
## + minor fix |
7 |
|
## |
8 |
|
## Revision 1.8 2002/12/12 02:48:58 joko |
9 |
|
## + played with fixing disconnectTarget |
10 |
|
## |
11 |
|
## Revision 1.7 2002/12/01 22:13:17 joko |
12 |
|
## + minor bugfix? |
13 |
|
## |
14 |
## Revision 1.6 2002/11/29 04:53:39 joko |
## Revision 1.6 2002/11/29 04:53:39 joko |
15 |
## + hash2Sql now knows about SQL_SELECT |
## + hash2Sql now knows about SQL_SELECT |
16 |
## |
## |
51 |
); |
); |
52 |
|
|
53 |
|
|
54 |
use libp qw( croak ); |
use Carp; |
55 |
use DBI; |
use DBI; |
56 |
|
use Data::Dumper; |
57 |
|
|
58 |
use constant SQL_INSERT => 10; |
use constant SQL_INSERT => 10; |
59 |
use constant SQL_UPDATE => 11; |
use constant SQL_UPDATE => 11; |
167 |
|
|
168 |
sub disconnectTarget { |
sub disconnectTarget { |
169 |
#my $dbmeta = shift; |
#my $dbmeta = shift; |
170 |
|
#print "disc\n"; |
171 |
#croak "please supply a \"dbmeta\"-hash" if (!$dbmeta); |
#croak "please supply a \"dbmeta\"-hash" if (!$dbmeta); |
172 |
#$dbmeta = patch_dbmeta($dbmeta); |
#$dbmeta = patch_dbmeta($dbmeta); |
173 |
#$dbmeta->{dbh} && $dbmeta->{dbh}->disconnect(); |
#$dbmeta->{dbh} && $dbmeta->{dbh}->disconnect(); |
174 |
my $dbmeta = $dbmeta_ref_cache; |
my $dbmeta = $dbmeta_ref_cache; |
175 |
$dbmeta->{dbh} && $dbmeta->{dbh}->disconnect(); |
#print Dumper($dbmeta); |
176 |
|
#$dbmeta->{dbh} && $dbmeta->{dbh}->disconnect(); |
177 |
|
$dbmeta->{dbh}->disconnect(); |
178 |
|
undef($dbmeta->{dbh}); |
179 |
|
undef($dbmeta); |
180 |
undef($dbmeta_ref_cache); |
undef($dbmeta_ref_cache); |
181 |
} |
} |
182 |
|
|