Changeset 21560

Timestamp:

2010-01-21T14:50:48+13:00 (14 years ago)

Author:

mdewsnip

Message:

Efficiency improvement to last changes.

File:

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

main/trunk/greenstone2/perllib/inexport.pm

@@ -298 +298 @@
     my $arcinfo_doc_filename = &doc_db_file($archivedir);
     my $arcinfo_src_filename = &src_db_file($archivedir);
+    my $doc_infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $arcinfo_doc_filename, "append");
+    my $src_infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $arcinfo_src_filename, "append");
 
 
@@ -311 +313 @@
 
     # delete the src record
-    my $src_infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $arcinfo_src_filename, "append");
     &dbutil::delete_infodb_entry("gdbm", $src_infodb_file_handle, $file);
-    &dbutil::close_infodb_write_handle("gdbm", $src_infodb_file_handle);
     
     foreach my $oid (@$oids) {
@@ -343 +343 @@
 
         my $val_rec = &dbutil::convert_infodb_string_to_hash($val);
-        my $doc_infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $arcinfo_doc_filename, "append");
         &dbutil::write_infodb_entry("gdbm", $doc_infodb_file_handle, $oid, $val_rec);
-        &dbutil::close_infodb_write_handle("gdbm", $doc_infodb_file_handle);
-        }
-    }
-    }
+        }
+    }
+    }
+
+    &dbutil::close_infodb_write_handle("gdbm", $doc_infodb_file_handle);
+    &dbutil::close_infodb_write_handle("gdbm", $src_infodb_file_handle);
 }