Changeset 16013 for gsdl/trunk/perllib/plugins/AcronymExtractor.pm
- Timestamp:
- 2008-06-16T11:16:36+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/AcronymExtractor.pm
r15918 r16013 100 100 101 101 # print $outhandle " extracting acronyms ...\n" 102 gsprintf($outhandle, " { BasPlug.extracting_acronyms}...\n")102 gsprintf($outhandle, " {AcronymExtractor.extracting_acronyms}...\n") 103 103 if ($self->{'verbosity'} > 2); 104 104 … … 114 114 $seen_before = "true"; 115 115 if ($self->{'verbosity'} >= 4) { 116 gsprintf($outhandle, " { BasPlug.already_seen} " .116 gsprintf($outhandle, " {AcronymExtractor.already_seen} " . 117 117 $acro->to_string() . "\n"); 118 118 } … … 126 126 #do the normal acronym 127 127 $doc_obj->add_utf8_metadata($thissection, "Acronym", $acro->to_string()); 128 gsprintf($outhandle, " { BasPlug.adding} ".$acro->to_string()."\n")128 gsprintf($outhandle, " {AcronymExtractor.adding} ".$acro->to_string()."\n") 129 129 if ($self->{'verbosity'} > 3); 130 130 } 131 131 } 132 132 133 gsprintf($outhandle, " { BasPlug.done_acronym_extract}\n")133 gsprintf($outhandle, " {AcronymExtractor.done_acronym_extract}\n") 134 134 if ($self->{'verbosity'} > 2); 135 135 } … … 140 140 my $outhandle = $self->{'outhandle'}; 141 141 142 gsprintf($outhandle, " { BasPlug.marking_up_acronyms}...\n")142 gsprintf($outhandle, " {AcronymExtractor.marking_up_acronyms}...\n") 143 143 if ($self->{'verbosity'} > 2); 144 144 … … 146 146 $text = &acronym::markup_acronyms($text, $self); 147 147 148 gsprintf($outhandle, " { BasPlug.done_acronym_markup}\n")148 gsprintf($outhandle, " {AcronymExtractor.done_acronym_markup}\n") 149 149 if ($self->{'verbosity'} > 2); 150 150
Note:
See TracChangeset
for help on using the changeset viewer.