Changeset 28022

Show
Ignore:
Timestamp:
12.08.2013 10:49:09 (6 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'

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

    r28021 r28022  
    716716 
    717717    # Do we count any "HASH" prefix against the split length limit? 
    718     print "[DEBUG] SubDir Hash Prefix: |" . $self->{'subdir_hash_prefix'} . "|\n"; 
    719718    if ($self->{'subdir_hash_prefix'} && $doc_dir_num == 0) 
    720719    { 
    721720      $pattern = '^((HASH)?.{1,' . $self->{'subdir_split_length'} . '})'; 
    722721    } 
    723  
    724     print "[DEBUG] Pattern: |" . $pattern . "|\n"; 
    725  
    726722 
    727723    # Note the use of 's' to both capture the next chuck of OID and to remove