Show
Ignore:
Timestamp:
22.07.2013 15:07:30 (6 years ago)
Author:
ak19
Message:

1. Reference to undefined variable. 2. Using FileUtils:: subroutines in place of deprecated utils:: ones.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/basebuildproc.pm

    r27306 r27917  
    717717        foreach my $metadata_value (@metadata_values) { 
    718718        if ($bool eq '!') { 
    719             if ($options =~ /^i$/i) { 
     719            if (defined $options && $options =~ /^i$/i) { 
    720720            if ($metadata_value !~ /$exp/i) {$indexed_doc = 1; last;} 
    721721            } else { 
     
    723723            } 
    724724        } else { 
    725             if ($options =~ /^i$/i) { 
     725            if (defined $options && $options =~ /^i$/i) { 
    726726            if ($metadata_value =~ /$exp/i) {$indexed_doc = 1; last;} 
    727727            } else {