Changeset 28022

Timestamp:

2013-08-12T10:49:09+12:00 (11 years ago)

Author:

jmt12

Message:

Found a bug in that I was defaulting 'subdir_hash_prefix' (the flag that controls whether the HASH prefix is counted against the archives subdirectory split length) to 'false'--which unfortunately evaluates as true in if statements---instead of '0'

File:

• main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

@@ -716 +716 @@
 
     # Do we count any "HASH" prefix against the split length limit?
-    print "[DEBUG] SubDir Hash Prefix: |" . $self->{'subdir_hash_prefix'} . "|\n";
     if ($self->{'subdir_hash_prefix'} && $doc_dir_num == 0)
     {
       $pattern = '^((HASH)?.{1,' . $self->{'subdir_split_length'} . '})';
     }
-
-    print "[DEBUG] Pattern: |" . $pattern . "|\n";
-
 
     # Note the use of 's' to both capture the next chuck of OID and to remove