Changeset 37179 for main/trunk/greenstone2/perllib/plugins/SplitTextFile.pm
- Timestamp:
- 2023-01-24T11:45:02+13:00 (14 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/SplitTextFile.pm
r36885 r37179 1 1 ########################################################################### 2 2 # 3 # SplitTextFile.pm - a plugin for splitting input files into segments that4 # will then be individually processed.5 # 3 # SplitTextFile.pm 4 # -- A plugin for splitting input files into segments that will then 5 # be individually processed. 6 6 # 7 7 # Copyright 2000 Gordon W. Paynter ([email protected]) … … 335 335 my ($doc_obj) = @_; 336 336 337 my $identifier = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), $self->{'OIDmetadata'}); 338 # print STDERR "**** get_baseOID identifier = $identifier\n"; 337 if ($self->{'OIDtype'} eq "assigned") { 338 my $identifier = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), $self->{'OIDmetadata'}); 339 # print STDERR "**** get_base_OID() assigned identifier = $identifier\n"; 340 } 339 341 340 342 $self->SUPER::add_OID($doc_obj); … … 346 348 my ($doc_obj, $id, $segment) = @_; 347 349 348 my $full_id = $id . "s" . $segment;350 my $full_id = "${id}s${segment}"; 349 351 if ($self->{'OIDtype'} eq "assigned") { 350 352 my $identifier = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), $self->{'OIDmetadata'});
Note:
See TracChangeset
for help on using the changeset viewer.