Changeset 21558 for main

Timestamp:

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

Author:

mdewsnip

Message:

Variable name change to prevent clash.

File:

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

main/trunk/greenstone2/perllib/inexport.pm

@@ -341 +341 @@
 
         my $val_rec = &dbutil::convert_infodb_string_to_hash($val);
-        my $infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $arcinfo_doc_filename, "append");
-        &dbutil::write_infodb_entry("gdbm", $infodb_file_handle, $oid, $val_rec);
-        &dbutil::close_infodb_write_handle("gdbm", $infodb_file_handle);
+        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);
         }
     }