Changeset 17110 for gsdl/trunk/perllib/mgppbuildproc.pm
- Timestamp:
- 2008-08-30T07:35:20+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/mgppbuildproc.pm
r14912 r17110 31 31 32 32 use basebuildproc; 33 use cnseg; 34 33 35 use strict; 34 36 no strict 'refs'; # allow filehandles to be variables and viceversa … … 167 169 } 168 170 169 170 171 sub filter_text {172 # $self->filter_text ($field, $new_text);173 # don't want to do anything for this version, however,174 # in a particular collection you might want to override175 # this method to post-process certain fields depending on176 # the field, or whether we are outputting it for indexing177 }178 179 171 sub text { 180 172 my $self = shift (@_); … … 326 318 327 319 # filter the text 328 $ self->filter_text ($field, $new_text);320 $new_text = $self->filter_text ($field, $new_text); 329 321 330 322 $self->{'num_processed_bytes'} += length ($new_text);
Note:
See TracChangeset
for help on using the changeset viewer.