Changeset 23165
- Timestamp:
- 2010-10-19T11:35:58+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/basebuildproc.pm
r23160 r23165 393 393 my $doctype = $doc_obj->get_doc_type(); 394 394 return if ($doctype ne "indexed_doc" && $doctype ne "info_doc"); 395 print STDERR "infodbedit, mode=$edit_mode, ".$doc_obj->get_OID()."\n";395 396 396 my $archivedir = ""; 397 397 if (defined $filename) … … 439 439 my $num_reconstructed_bytes = $doc_obj->get_metadata_element ($doc_obj->get_top_section (), "total_numbytes"); 440 440 if (defined $num_reconstructed_bytes) { 441 print STDERR "adding numbytes $num_reconstructed_bytes\n";442 441 $self->{'num_bytes'} += $num_reconstructed_bytes; 443 442 }
Note:
See TracChangeset
for help on using the changeset viewer.