Changeset 21412 for main/trunk
- Timestamp:
- 2010-01-04T23:11:26+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/arcinfo.pm
r20802 r21412 42 42 use strict; 43 43 44 use dbutil ;44 use dbutil::gdbm; 45 45 46 46 # File format read in: OID <tab> Filename <tab> Optional-Index-Status … … 92 92 my $infodb_map = {}; 93 93 94 &dbutil:: read_infodb_file_gdbm($filename,$infodb_map);94 &dbutil::gdbm::read_infodb_file($filename,$infodb_map); 95 95 96 96 foreach my $oid ( keys %$infodb_map ) { … … 129 129 my $infodb_map = {}; 130 130 131 &dbutil:: read_infodb_keys_gdbm($filename,$infodb_map);131 &dbutil::gdbm::read_infodb_keys($filename,$infodb_map); 132 132 133 133 foreach my $file ( keys %$infodb_map ) { … … 162 162 my $rev_infodb_map = {}; 163 163 164 &dbutil:: read_infodb_file_gdbm($rev_filename,$rev_infodb_map);164 &dbutil::gdbm::read_infodb_file($rev_filename,$rev_infodb_map); 165 165 166 166 foreach my $srcfile ( keys %$rev_infodb_map ) { … … 199 199 # read it in 200 200 my $infodb_map = {}; 201 &dbutil:: read_infodb_file_gdbm($filename,$infodb_map);201 &dbutil::gdbm::read_infodb_file($filename,$infodb_map); 202 202 203 203 # change index-status values … … 217 217 218 218 # write out again 219 my $infodb_handle = &dbutil:: open_infodb_write_handle_gdbm($filename);219 my $infodb_handle = &dbutil::gdbm::open_infodb_write_handle($filename); 220 220 foreach my $oid ( keys %$infodb_map ) { 221 221 # consider making the following a method in dbutil … … 227 227 print $infodb_handle '-' x 70, "\n"; 228 228 } 229 &dbutil:: close_infodb_write_handle_gdbm($infodb_handle);229 &dbutil::gdbm::close_infodb_write_handle($infodb_handle); 230 230 231 231 } … … 239 239 my $rev_infodb_map = $self->{'reverse-info'}; 240 240 my $rev_infodb_handle 241 = &dbutil:: open_infodb_write_handle_gdbm($rev_filename,"append");241 = &dbutil::gdbm::open_infodb_write_handle($rev_filename,"append"); 242 242 243 243 foreach my $key ( keys %$rev_infodb_map ) { 244 244 my $val_hash = $rev_infodb_map->{$key}; 245 &dbutil:: write_infodb_entry_gdbm($rev_infodb_handle,$key,$val_hash);246 } 247 &dbutil:: close_infodb_write_handle_gdbm($rev_infodb_handle);245 &dbutil::gdbm::write_infodb_entry($rev_infodb_handle,$key,$val_hash); 246 } 247 &dbutil::gdbm::close_infodb_write_handle($rev_infodb_handle); 248 248 249 249 }
Note:
See TracChangeset
for help on using the changeset viewer.