|
Lines 26-31
use C4::Installer::PerlModules;
Link Here
|
| 26 |
use DBI; |
26 |
use DBI; |
| 27 |
use Koha; |
27 |
use Koha; |
| 28 |
|
28 |
|
|
|
29 |
use vars qw(@ISA @EXPORT); |
| 30 |
BEGIN { |
| 31 |
require Exporter; |
| 32 |
@ISA = qw( Exporter ); |
| 33 |
push @EXPORT, qw( constraint_exists column_exists ); |
| 34 |
}; |
| 35 |
|
| 29 |
=head1 NAME |
36 |
=head1 NAME |
| 30 |
|
37 |
|
| 31 |
C4::Installer |
38 |
C4::Installer |
|
Lines 488-493
sub get_file_path_from_name {
Link Here
|
| 488 |
|
495 |
|
| 489 |
} |
496 |
} |
| 490 |
|
497 |
|
|
|
498 |
sub constraint_exists { |
| 499 |
my ( $table_name, $key_name ) = @_; |
| 500 |
my $dbh = C4::Context->dbh; |
| 501 |
my ($exists) = $dbh->selectrow_array( |
| 502 |
qq| |
| 503 |
SHOW INDEX FROM $table_name |
| 504 |
WHERE key_name = ? |
| 505 |
|, undef, $key_name |
| 506 |
); |
| 507 |
return $exists; |
| 508 |
} |
| 509 |
|
| 510 |
sub column_exists { |
| 511 |
my ( $table_name, $column_name ) = @_; |
| 512 |
my $dbh = C4::Context->dbh; |
| 513 |
my ($exists) = $dbh->selectrow_array( |
| 514 |
qq| |
| 515 |
SHOW COLUMNS FROM $table_name |
| 516 |
WHERE Field = ? |
| 517 |
|, undef, $column_name |
| 518 |
); |
| 519 |
return $exists; |
| 520 |
} |
| 491 |
|
521 |
|
| 492 |
=head1 AUTHOR |
522 |
=head1 AUTHOR |
| 493 |
|
523 |
|