Changeset 30489 for main/trunk
- Timestamp:
- 2016-05-04T12:08:22+12:00 (8 years ago)
- Location:
- main/trunk/greenstone2/perllib
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/dbutil.pm
r30357 r30489 414 414 415 415 416 ## @function convert_infodb_string_to_hash(string,hashmap) => string 417 # 418 sub 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 416 428 ## @function open_infodb_write_handle(string, *) => filehandle 417 429 # -
main/trunk/greenstone2/perllib/inexport.pm
r29379 r30489 1421 1421 $val =~ s/^<index-status>(.*)$/<index-status>D/m; 1422 1422 1423 my $val_rec = &dbutil::convert_infodb_string_to_hash($ val);1423 my $val_rec = &dbutil::convert_infodb_string_to_hash($infodbtype,$val); 1424 1424 my $doc_infodb_file_handle = &dbutil::open_infodb_write_handle($infodbtype, $arcinfo_doc_filename, "append"); 1425 1425
Note:
See TracChangeset
for help on using the changeset viewer.