Added feedback to remind the user where to find the results (since it doesn't go...

[migration-tools.git] / extract_holdings

diff --git a/extract_holdings b/extract_holdings
index db10ded..49de83c 100755 (executable)
--- a/extract_holdings
+++ b/extract_holdings
@@ -170,6 +170,8 @@ sub dump_sample_detail {
         print "\n";
     }
     select STDOUT;
+    print "Saved results as ", ($c->{prefix} . "-HOLDINGS-DETAIL.txt"), " and ",
+        ($c->{prefix} . "-HOLDINGS-SUBCOUNTS.txt"), "\n";
 }
 
 sub dump_sample_overview {
@@ -195,7 +197,7 @@ sub dump_sample_overview {
         print " (", sprintf("%03d", int($tags->{ $tagsbycount[$i] } / $count * 100)), "%)\n";
     }
     select STDOUT;
-    print "\n";
+    print "Saved results as ", ($c->{prefix} . "-HOLDINGS-OVERVIEW.txt"), "\n";
     close SAMPLE;
 }