Bug 17234: Move new subroutines to C4::Installer

Signed-off-by: Mark Tompsett <mtompset@hotmail.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

diff --git a/C4/Installer.pm b/C4/Installer.pm
index 719e6b2..4165183 100644 (file)
--- a/C4/Installer.pm
+++ b/C4/Installer.pm
@@ -26,6 +26,13 @@ use C4::Installer::PerlModules;
 use DBI;
 use Koha;
 
+use vars qw(@ISA @EXPORT);
+BEGIN {
+    require Exporter;
+    @ISA = qw( Exporter );
+    push @EXPORT, qw( constraint_exists column_exists );
+};
+
 =head1 NAME
 
 C4::Installer
@@ -491,6 +498,29 @@ sub get_file_path_from_name {
 
 }
 
+sub constraint_exists {
+    my ( $table_name, $key_name ) = @_;
+    my $dbh = C4::Context->dbh;
+    my ($exists) = $dbh->selectrow_array(
+        qq|
+        SHOW INDEX FROM $table_name
+        WHERE key_name = ?
+        |, undef, $key_name
+    );
+    return $exists;
+}
+
+sub column_exists {
+    my ( $table_name, $column_name ) = @_;
+    my $dbh = C4::Context->dbh;
+    my ($exists) = $dbh->selectrow_array(
+        qq|
+        SHOW COLUMNS FROM $table_name
+        WHERE Field = ?
+        |, undef, $column_name
+    );
+    return $exists;
+}
 
 =head1 AUTHOR
 

diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl
index 2bf6319..fcf4d27 100755 (executable)
--- a/installer/data/mysql/updatedatabase.pl
+++ b/installer/data/mysql/updatedatabase.pl
@@ -13897,29 +13897,4 @@ sub CheckVersion {
     }
 }
 
-sub constraint_exists {
-    my ( $table_name, $key_name ) = @_;
-    my $dbh = C4::Context->dbh;
-    my ($exists) = $dbh->selectrow_array(
-        qq|
-        SHOW INDEX FROM $table_name
-        WHERE key_name = ?
-        |, undef, $key_name
-    );
-    return $exists;
-}
-
-sub column_exists {
-    my ( $table_name, $column_name ) = @_;
-    my $dbh = C4::Context->dbh;
-    my ($exists) = $dbh->selectrow_array(
-        qq|
-        SHOW COLUMNS FROM $table_name
-        WHERE Field = ?
-        |, undef, $column_name
-    );
-    return $exists;
-
-}
-
 exit;