Changeset 1287 for trunk/gsdl/perllib/arcinfo.pm

Timestamp:

2000-07-14T12:24:20+12:00 (24 years ago)

Author:

sjboddie

Message:

Implemented a -sortmeta option for import.pl to sort archives.inf file
(generated at end of import process) alphabetically by the given
metadata element. This may be useful for some collections as boolean
queries currently return matches in build (fairly random) order. Changing
the order of archives.inf changes the order that documents are built.
This option has a couple of important limitations:

1. Can't be used in conjunction with the groupsize option as it would then only change the build order of groups of documents which doesn't seem very useful.
2. Is of limited use when building indexes at a section level as the build order is only sorted by document, not by section.

File:

• trunk/gsdl/perllib/arcinfo.pm (modified) (4 diffs)

trunk/gsdl/perllib/arcinfo.pm

@@ -93 +93 @@
     my $i = 0;
     while ($i < scalar (@{$self->{'order'}})) {
-        if ($self->{'order'}->[$i] eq $OID) {
+        if ($self->{'order'}->[$i]->[0] eq $OID) {
         splice (@{$self->{'order'}}, $i, 1);
         last;
@@ -105 +105 @@
 sub add_info {
     my $self = shift (@_);
-    my ($OID, $doc_file) = @_;
+    my ($OID, $doc_file, $sortmeta) = @_;
+    $sortmeta = "" unless defined $sortmeta;
 
     $self->delete_info ($OID);
     $self->{'info'}->{$OID} = [$doc_file];
-    push (@{$self->{'order'}}, $OID);
+    push (@{$self->{'order'}}, [$OID, $sortmeta]);
 }
 
@@ -119 +120 @@
     my @list = ();
 
-    foreach $OID (@{$self->{'order'}}) {
-    push (@list, [$OID, $self->{'info'}->{$OID}->[0]]);
+    foreach $OID (sort {$a->[1] cmp $b->[1]} @{$self->{'order'}}) {
+    push (@list, [$OID->[0], $self->{'info'}->{$OID->[0]}->[0]]);
     }
 
@@ -133 +134 @@
     my @list = ();
 
-    foreach $OID (@{$self->{'order'}}) {
-    push (@list, [$self->{'info'}->{$OID}->[0], $OID]);
+    foreach $OID (sort {$a->[1] cmp $b->[1]} @{$self->{'order'}}) {
+    push (@list, [$self->{'info'}->{$OID->[0]}->[0], $OID->[0]]);
     }