X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=mig-bin%2Fmig-reporter;h=9f6ab6a97d29c015ed49776a6e8bc148d3e61731;hp=d97d4f0a35e5d2121646c3034bd620d6dc48b4f9;hb=fa0d4824bc205986b6b489728843f8327b200192;hpb=26face520a28beb3c5cf6bc71b17f70f2442593b

diff --git a/mig-bin/mig-reporter b/mig-bin/mig-reporter
index d97d4f0..9f6ab6a 100755
--- a/mig-bin/mig-reporter
+++ b/mig-bin/mig-reporter
@@ -265,11 +265,11 @@ sub check_table {
     my $i = 0;
     my $return_flag = 1;   
     my @qe = split(/ /,$query);
-    my @tables = grep /mig_schema/, @qe;
+    my @tables = grep /MIGSCHEMA/, @qe;
 
     print "checking tables ... ";
     foreach my $table (@tables) {
-        $table =~ s/mig_schema.//g;
+        $table =~ s/MIGSCHEMA.//g;
         $table =~ s/\)//g;
         $table =~ s/\<//g;
         my $sql = 'SELECT EXISTS (SELECT 1 FROM information_schema.tables WHERE table_schema = \'' . $MIGSCHEMA . '\' AND table_name = \'' . $table . '\');';
@@ -292,7 +292,7 @@ sub print_query {
     my $fh = shift;
     my %report = @_;
     my $query = $report{query};
-    $query =~ s/mig_schema/$MIGSCHEMA/g;
+    $query =~ s/MIGSCHEMA/$MIGSCHEMA/g;
     $query =~ s/mig_func_schema/$mig_func_schema/g;
     my $sth = $dbh->prepare($query);
     $sth->execute();