- Timestamp:
- 2010-03-31T23:10:19+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/arcinfo.pm
r21585 r21857 205 205 my ($filename) = @_; 206 206 207 my $infodbtype = $self->{'infodbtype'}; 208 207 209 # Not the most efficient operation, but will do for now 208 210 209 211 # read it in 210 212 my $infodb_map = {}; 211 &dbutil::read_infodb_file($ self->{'infodbtype'}, $filename, $infodb_map);213 &dbutil::read_infodb_file($infodbtype, $filename, $infodb_map); 212 214 213 215 # change index-status values … … 227 229 228 230 # write out again 229 my $infodb_handle = &dbutil::open_infodb_write_handle($ self->{'infodbtype'}, $filename);231 my $infodb_handle = &dbutil::open_infodb_write_handle($infodbtype, $filename); 230 232 foreach my $oid ( keys %$infodb_map ) { 231 # consider making the following a method in dbutil 232 # e.g. write_infodb_rawentry($infodb_handle,$oid,$vals); 233 234 # no need to escape, as $infodb_map->{$oid} hasn't been unescaped 235 # GDBM SPECIFIC! 236 print $infodb_handle "[$oid]\n"; 237 print $infodb_handle $infodb_map->{$oid}; 238 print $infodb_handle '-' x 70, "\n"; 239 } 240 &dbutil::close_infodb_write_handle($self->{'infodbtype'}, $infodb_handle); 233 my $vals = $infodb_map->{$oid}; 234 &dbutil::write_infodb_rawentry($infodbtype,$infodb_handle,$oid,$vals); 235 } 236 &dbutil::close_infodb_write_handle($infodbtype, $infodb_handle); 241 237 242 238 }
Note:
See TracChangeset
for help on using the changeset viewer.