Changeset 23131 for main/trunk/greenstone2/perllib/doc.pm

Timestamp:

2010-10-13T14:23:00+13:00 (14 years ago)

Author:

kjdon

Message:

added a method get_total_text_length. returns the total lenght for the document, ie al the text lengths for each section

File:

• main/trunk/greenstone2/perllib/doc.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/doc.pm

@@ -926 +926 @@
 }
 
+# returns the total length for all the sections
+sub get_total_text_length {
+    my $self = shift (@_);
+
+    my $section = $self->get_top_section(); 
+    my $length = 0;
+    while (defined $section) {
+    $length += $self->get_text_length($section);
+    $section = $self->get_next_section($section);
+    }
+    return $length;
+}
+
 sub delete_text {
     my $self = shift (@_);