Changeset 31396 for main/trunk/greenstone2/perllib/cfgread.pm
- Timestamp:
- 2017-02-09T18:32:27+13:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cfgread.pm
r26449 r31396 159 159 160 160 my $key = shift (@$line); 161 162 # OIDtype and OIDmetadata may be present in collect.cfg as "oidtype" and "oidmetadata" 163 # but rest of perl code expects it to be OIDtype/OIDmetadata and uses these as indexes into hashes 164 # so convert any lowercase version to uppercase here 165 if($key =~ m/^oid(type|metadata)/) { 166 $key =~ s/^oid/OID/; 167 } 161 168 if (defined $stringexp && $key =~ /$stringexp/) { 162 169 $data->{$key} = shift (@$line);
Note:
See TracChangeset
for help on using the changeset viewer.