Revision 32147d43
Von Moritz Bunkus vor mehr als 15 Jahren hinzugefügt
| SL/DBUtils.pm | ||
|---|---|---|
| 9 | 9 |
selectall_hashref_query selectall_array_query |
| 10 | 10 |
selectall_as_map |
| 11 | 11 |
prepare_execute_query prepare_query |
| 12 |
create_sort_spec); |
|
| 12 |
create_sort_spec does_table_exist);
|
|
| 13 | 13 |
|
| 14 | 14 |
sub conv_i {
|
| 15 | 15 |
my ($value, $default) = @_; |
| ... | ... | |
| 259 | 259 |
return %result; |
| 260 | 260 |
} |
| 261 | 261 |
|
| 262 |
sub does_table_exist {
|
|
| 263 |
$main::lxdebug->enter_sub(2); |
|
| 264 |
|
|
| 265 |
my $dbh = shift; |
|
| 266 |
my $table = shift; |
|
| 267 |
|
|
| 268 |
my $result = 0; |
|
| 269 |
|
|
| 270 |
if ($dbh) {
|
|
| 271 |
my $sth = $dbh->table_info('', '', $table, 'TABLE');
|
|
| 272 |
if ($sth) {
|
|
| 273 |
$result = $sth->fetchrow_hashref(); |
|
| 274 |
$sth->finish(); |
|
| 275 |
} |
|
| 276 |
} |
|
| 277 |
|
|
| 278 |
$main::lxdebug->leave_sub(2); |
|
| 279 |
|
|
| 280 |
return $result; |
|
| 281 |
} |
|
| 282 |
|
|
| 283 |
|
|
| 262 | 284 |
1; |
| 263 | 285 |
|
| 264 | 286 |
|
Auch abrufbar als: Unified diff
Eine neue Funktion zum Testen, ob eine Tabelle in der Datenbank existiert oder nicht.