Changeset 36777 for main

Timestamp:

2022-10-11T23:44:21+13:00 (18 months ago)

Author:

davidb

Message:

Changes made to align with the needs of the Eurovision SPARQL prepare 02 sript

File:

• main/trunk/greenstone2/bin/script/explode_metadata_database.pl (modified) (4 diffs)

main/trunk/greenstone2/bin/script/explode_metadata_database.pl

@@ -225 +225 @@
     }
     }
+
+    if (defined $collectdir) {
+    unshift (@INC, "$collectdir/$collection/perllib/plugins");
+    }
+    
     my $plugobj;
     require "$plugin.pm";
@@ -269 +274 @@
     my $split_exp = $plugobj->{'split_exp'};
     if (defined $split_exp) {
+
     # Read in file, and then split and process individual records
 
@@ -279 +285 @@
     # Split the text into records, using the plugin's split_exp
 
-    my @metadata_records = split(/$split_exp/, $text);
+    ##my @metadata_records = split(/$split_exp/, $text);
+    my $metadata_records_ref = $plugobj->split_text_into_segments(\$text);
+    my @metadata_records = @$metadata_records_ref;
+    
     my $total_num_records = scalar(@metadata_records);
     print STDERR "Number of records: $total_num_records\n";
@@ -445 +454 @@
     if (not defined $document_file) {
 
-    if (defined ($record_number)) {
+    my $doc_oid = $doc_obj->get_OID();
+
+    if (defined ($doc_oid)) {
+        $document_file = "$doc_oid.nul";
+    }
+    elsif (defined ($record_number)) {
         $document_file = sprintf("%8.8d", $record_number) . ".nul";
     }