Changeset 17579 for gsdl/trunk/perllib/basebuildproc.pm
- Timestamp:
- 2008-10-23T11:56:58+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/basebuildproc.pm
r17564 r17579 427 427 # update a few statistics 428 428 $self->{'num_bytes'} += $doc_obj->get_text_length ($section); 429 print STDERR "num bytes added = ".$doc_obj->get_text_length ($section)."\n";430 429 $self->{'num_sections'} += 1 unless ($doctype eq "classification"); 431 430
Note:
See TracChangeset
for help on using the changeset viewer.