Show
Ignore:
Timestamp:
04.05.2016 12:08:22 (4 years ago)
Author:
davidb
Message:

Added in missing function, after DBUtil rewrite

Location:
main/trunk/greenstone2/perllib
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/dbutil.pm

    r30357 r30489  
    414414 
    415415 
     416## @function convert_infodb_string_to_hash(string,hashmap) => string 
     417# 
     418sub convert_infodb_string_to_hash 
     419{ 
     420    my $infodb_type = shift(@_); 
     421    my $driver = _loadDBDriver($infodb_type); 
     422    my $infodb_handle = $driver->convert_infodb_string_to_hash(@_); 
     423    return $infodb_handle; 
     424} 
     425## open_infodb_write_handle(string,hashmap) => string ## 
     426 
     427 
    416428## @function open_infodb_write_handle(string, *) => filehandle 
    417429# 
  • main/trunk/greenstone2/perllib/inexport.pm

    r29379 r30489  
    14211421        $val =~ s/^<index-status>(.*)$/<index-status>D/m; 
    14221422 
    1423         my $val_rec = &dbutil::convert_infodb_string_to_hash($val); 
     1423        my $val_rec = &dbutil::convert_infodb_string_to_hash($infodbtype,$val); 
    14241424        my $doc_infodb_file_handle = &dbutil::open_infodb_write_handle($infodbtype, $arcinfo_doc_filename, "append"); 
    14251425