more path touchups

[migration-tools.git] / emig.d / bin / mig-reporter

diff --git a/emig.d/bin/mig-reporter b/emig.d/bin/mig-reporter
index f87059e..5a65f1b 100755 (executable)
--- a/emig.d/bin/mig-reporter
+++ b/emig.d/bin/mig-reporter
@@ -61,7 +61,7 @@ use Cwd qw(getcwd);
 use FindBin;
 my $mig_bin = "$FindBin::Bin/";
 use lib "$FindBin::Bin/";
-use Mig;
+use EMig;
 use open ':encoding(utf8)';
 
 pod2usage(-verbose => 2) if defined $ARGV[0] && $ARGV[0] eq '--help';
@@ -108,7 +108,7 @@ if (defined $added_page_file or defined $added_page_title) {
     }
 if (defined $added_page_file) { $added_page_file = $MIGGITDIR . $added_page_file; }
 
-my $dbh = Mig::db_connect();
+my $dbh = EMig::db_connect();
 my $report_file = create_report_name($report_title);
 $report_file = $MIGGITDIR . $report_file;
 
@@ -166,7 +166,7 @@ foreach my $t (@report_tags) {
     }
 
     foreach my $fname (@asset_files) {
-        my $asset_path = $mig_path . '../mig-asc/' . $fname;
+        my $asset_path = $mig_path . '../asc/' . $fname;
         open my $a, $asset_path or abort("Could not open $fname.");
         while ( my $l = <$a> ) {
             print $fh $l;
@@ -236,7 +236,7 @@ sub find_xml {
 
     if ($reports_xml =~ m/\//) { return $reports_xml; }
 
-    my $mig_test_file =  $mig_path . '/../mig-xml/' . $reports_xml;
+    my $mig_test_file =  $mig_path . '/../xml/' . $reports_xml;
     my $working_test_dir = getcwd();
     my $working_test_file = $working_test_dir . '/' . $reports_xml;