Changeset 27697 for main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

Timestamp:

2013-06-24T17:23:04+12:00 (11 years ago)

Author:

ak19

Message:

Dr Bainbridge fixed it so that the gdb files generated on Windows for diffcol match those on Linux. This actually involved changing the order in which docids appear in archiveinf-doc. This last needed the newly invented flag -sort to the ArchivesInfPlugin in combination with -sortmeta OID to import.pl

File:

• main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

@@ -477 +477 @@
     my $output_info = $self->{'output_info'};
     my $metaname = $self->{'sortmeta'};
+    
     if (!defined $metaname || $metaname !~ /\S/) {
-    $output_info->add_info($doc_obj->get_OID(),$self->{'short_doc_file'}, undef, "");
+    my $OID = $doc_obj->get_OID();
+    $output_info->add_info($OID,$self->{'short_doc_file'}, undef, "");
     return;
     }
+    
+    if ($metaname eq "OID") { # sort by OID
+    my $OID = $doc_obj->get_OID();
+    $output_info->add_info($OID,$self->{'short_doc_file'}, undef, $OID);
+    return;
+    }
     
     my $metadata = "";