Changeset 32590 for main/trunk

Timestamp:

2018-11-09T18:48:50+13:00 (5 years ago)

Author:

ak19

Message:

Adding a add_utf8_textref() method to allow fulltxt to be passed by ref to it. Used by GreenstoneSQLPlugin.

File:

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

main/trunk/greenstone2/perllib/doc.pm

@@ -1212 +1212 @@
 # been converted to the UTF-8 encoding. For ascii text use
 # add_text
+# Pass by value version (internally calls pass by ref version
+# to avoid code duplication)
 sub add_utf8_text {
     my $self = shift (@_);
     my ($section, $text) = @_;
+    
+    $self->add_utf8_textref($section, \$text);
+}
+
+# Pass by reference version, used by GreenstoneSQLPlugin for fulltext
+sub add_utf8_textref {
+    my $self = shift (@_);
+    my ($section, $text_ref) = @_;
 
     my $section_ptr = $self->_lookup_section($section);
     if (!defined $section_ptr) {
-    print STDERR "doc::add_utf8_text couldn't find section " .
+    print STDERR "doc::add_utf8_textref couldn't find section " .
         "$section\n";
     return;
     }
 
-    $section_ptr->{'text'} .= $text;
+    $section_ptr->{'text'} .= $$text_ref;
 }