Changeset 32590 for main/trunk/greenstone2/perllib
- Timestamp:
- 2018-11-09T18:48:50+13:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/doc.pm
r32535 r32590 1212 1212 # been converted to the UTF-8 encoding. For ascii text use 1213 1213 # add_text 1214 # Pass by value version (internally calls pass by ref version 1215 # to avoid code duplication) 1214 1216 sub add_utf8_text { 1215 1217 my $self = shift (@_); 1216 1218 my ($section, $text) = @_; 1219 1220 $self->add_utf8_textref($section, \$text); 1221 } 1222 1223 # Pass by reference version, used by GreenstoneSQLPlugin for fulltext 1224 sub add_utf8_textref { 1225 my $self = shift (@_); 1226 my ($section, $text_ref) = @_; 1217 1227 1218 1228 my $section_ptr = $self->_lookup_section($section); 1219 1229 if (!defined $section_ptr) { 1220 print STDERR "doc::add_utf8_text couldn't find section " .1230 print STDERR "doc::add_utf8_textref couldn't find section " . 1221 1231 "$section\n"; 1222 1232 return; 1223 1233 } 1224 1234 1225 $section_ptr->{'text'} .= $ text;1235 $section_ptr->{'text'} .= $$text_ref; 1226 1236 } 1227 1237
Note:
See TracChangeset
for help on using the changeset viewer.