Added feedback to remind the user where to find the results (since it doesn't go...
authorBen Ostrowsky <ben@esilibrary.com>
Fri, 10 Sep 2010 14:56:56 +0000 (14:56 +0000)
committerGalen Charlton <gmc@esilibrary.com>
Mon, 16 Jul 2012 15:29:24 +0000 (11:29 -0400)
extract_holdings

index db10ded..49de83c 100755 (executable)
@@ -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;
 }