Changeset 30489 for main/trunk/greenstone2

Timestamp:

2016-05-04T12:08:22+12:00 (8 years ago)

Author:

davidb

Message:

Added in missing function, after DBUtil rewrite

Location:

main/trunk/greenstone2/perllib

Files:

• dbutil.pm (modified) (1 diff)
• inexport.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/dbutil.pm

@@ -414 +414 @@
 
 
+## @function convert_infodb_string_to_hash(string,hashmap) => string
+#
+sub convert_infodb_string_to_hash
+{
+    my $infodb_type = shift(@_);
+    my $driver = _loadDBDriver($infodb_type);
+    my $infodb_handle = $driver->convert_infodb_string_to_hash(@_);
+    return $infodb_handle;
+}
+## open_infodb_write_handle(string,hashmap) => string ##
+
+
 ## @function open_infodb_write_handle(string, *) => filehandle
 #

main/trunk/greenstone2/perllib/inexport.pm

@@ -1421 +1421 @@
         $val =~ s/^<index-status>(.*)$/<index-status>D/m;
 
-        my $val_rec = &dbutil::convert_infodb_string_to_hash($val);
+        my $val_rec = &dbutil::convert_infodb_string_to_hash($infodbtype,$val);
         my $doc_infodb_file_handle = &dbutil::open_infodb_write_handle($infodbtype, $arcinfo_doc_filename, "append");