Changeset 23131
- Timestamp:
- 2010-10-13T14:23:00+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/doc.pm
r22950 r23131 926 926 } 927 927 928 # returns the total length for all the sections 929 sub get_total_text_length { 930 my $self = shift (@_); 931 932 my $section = $self->get_top_section(); 933 my $length = 0; 934 while (defined $section) { 935 $length += $self->get_text_length($section); 936 $section = $self->get_next_section($section); 937 } 938 return $length; 939 } 940 928 941 sub delete_text { 929 942 my $self = shift (@_);
Note:
See TracChangeset
for help on using the changeset viewer.