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