Changeset 37179

Timestamp:

2023-01-24T11:45:02+13:00 (15 months ago)

Author:

davidb

Message:

Only want to get OIDMetadata if OIDtype is assigned. Also adjusted full_id so it is more obivous that the ID that is being built does not have dots '.' in it

File:

• main/trunk/greenstone2/perllib/plugins/SplitTextFile.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/plugins/SplitTextFile.pm

@@ -1 +1 @@
 ###########################################################################
 #
-# SplitTextFile.pm - a plugin for splitting input files into segments that
-#                will then be individually processed.
-#
+# SplitTextFile.pm
+#  -- A plugin for splitting input files into segments that will then
+#     be individually processed.
 #
 # Copyright 2000 Gordon W. Paynter ([email protected])
@@ -335 +335 @@
     my ($doc_obj) = @_;
 
-    my $identifier = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), $self->{'OIDmetadata'});
-    # print STDERR "**** get_baseOID identifier = $identifier\n";
+    if ($self->{'OIDtype'} eq "assigned") {
+    my $identifier = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), $self->{'OIDmetadata'});
+    # print STDERR "**** get_base_OID() assigned identifier = $identifier\n";
+    }
     
     $self->SUPER::add_OID($doc_obj);
@@ -346 +348 @@
     my ($doc_obj, $id, $segment) = @_;
 
-    my $full_id = $id . "s" . $segment;
+    my $full_id = "${id}s${segment}";
     if ($self->{'OIDtype'} eq "assigned") {
     my $identifier = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), $self->{'OIDmetadata'});