|
Lines 17280-17285
sub TableExists {
Link Here
|
| 17280 |
return 0; |
17280 |
return 0; |
| 17281 |
} |
17281 |
} |
| 17282 |
|
17282 |
|
|
|
17283 |
=head2 ColumnExists( $table, $column ) |
| 17284 |
|
| 17285 |
=cut |
| 17286 |
|
| 17287 |
sub ColumnExists { |
| 17288 |
my ( $table, $column ) = @_; |
| 17289 |
|
| 17290 |
my $database = C4::Context->config("database"); |
| 17291 |
|
| 17292 |
my $sth = $dbh->prepare(qq{ |
| 17293 |
SELECT * FROM INFORMATION_SCHEMA.COLUMNS |
| 17294 |
WHERE |
| 17295 |
TABLE_SCHEMA='$database' AND |
| 17296 |
TABLE_NAME='$table' AND |
| 17297 |
COLUMN_NAME='$column'; |
| 17298 |
}); |
| 17299 |
$sth->execute; |
| 17300 |
|
| 17301 |
return ($sth->fetchrow_hashref) ? 1 : 0; |
| 17302 |
} |
| 17303 |
|
| 17283 |
=head2 DropAllForeignKeys($table) |
17304 |
=head2 DropAllForeignKeys($table) |
| 17284 |
|
17305 |
|
| 17285 |
Drop all foreign keys of the table $table |
17306 |
Drop all foreign keys of the table $table |
| 17286 |
- |
|
|