disable modification of records if --stats is in use

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@638 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/run.pl b/run.pl
index 929a70c..6829ac8 100755 (executable)
--- a/run.pl
+++ b/run.pl
@@ -60,8 +60,8 @@ path to YAML configuration file
 
 =item --stats
 
-disable indexing and dump statistics about field and subfield
-usage for each input
+disable indexing, modify_* in configuration and dump statistics about field
+and subfield usage for each input
 
 =item --validate path/to/validation_file
 
@@ -335,6 +335,12 @@ while (my ($database, $db_config) = each %{ $config->{databases} }) {
                        $input->{lookup} ? "lookup '$input->{lookup}'" : ""
                );
 
+               if ($stats) {
+                       # disable modification of records if --stats is in use
+                       delete($input->{modify_records});
+                       delete($input->{modify_file});
+               }
+
                my $input_db = new WebPAC::Input(
                        module => $input_module,
                        encoding => $config->{webpac}->{webpac_encoding},