Changeset 13068

Timestamp:

2006-10-10T15:26:58+13:00 (18 years ago)

Author:

kjdon

Message:

when unbuilding and rebuilding the gdbm database for incremental building, we need to make sure the old documents are processed in the same order as they were originally added, otherwise the docnums don't match up with the index or text

File:

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

trunk/gsdl/perllib/classify.pm

@@ -238 +238 @@
     # dig out top level doc sections
     my %top_sections = ();
+    my %top_docnums = ();
     foreach my $key ( keys %gdbm_recs )
     {
@@ -246 +247 @@
         next if ($key =~ m/\./);
         $top_sections{$key} = $md_hash;
+        $top_docnums{$key} = $md_hash->{'docnum'};
     }
     }
@@ -251 +253 @@
     # for greenstone document objects based on metadata in gdbm file
     my @all_docs = ();
-    foreach my $oid ( keys %top_sections )
+    # we need to make sure the documents were processed in the same order as
+    # before, so sort based on their docnums
+    foreach my $oid ( sort { $top_docnums{$a} <=> $top_docnums{$b} } keys %top_sections )
     {
     my $doc_db_hash = $top_sections{$oid};
@@ -257 +261 @@
     my $doc_obj = new doc();
     $doc_obj->set_OID($oid);
-
     my $top = $doc_obj->get_top_section();
         add_section_content ($doc_obj, $top, $doc_db_hash);