- Timestamp:
- 06/09/08 21:09:55 (6 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/Audio_scripts/AudioSegmentation/AudioBook/Chapter.pm
r2606 r2608 13 13 use Carp; 14 14 15 use AudioBook::MissingWords;15 #use AudioBook::MissingWords; 16 16 17 use AudioBook::Dictionary;18 use AudioBook::Audio;19 use AudioBook::Text;17 #use AudioBook::Dictionary; 18 #use AudioBook::Audio; 19 #use AudioBook::Text; 20 20 21 21 #################################################################### … … 59 59 my $textfile = $audioBook->getTextFile(); 60 60 my $pronDict = $audioBook->getPronDict(); 61 61 62 my $text = AudioBook::Text->new($self); 62 63 $self->{'chapterTextObject'} = $text; … … 67 68 my $missingWords = AudioBook::MissingWords->new($audioBook,$self,$dictionary,$text); 68 69 $self->{'missingWordsObject'} = $missingWords; 69 my $missingwordfound = $missingWords->getText(); # method returns true if there are missing words 70 if ($missingwordfound) { 71 if ($self->{"verify_out_of_vocabulary_pronunciations"}) { 72 $missingWords->verifyMissingWordPronunciations(); 73 } 70 my $missingWordFound = $missingWords->getText(); # method returns true if there are missing words 71 $self->{'missingWordFound'} = $missingWordFound; 72 if ($missingWordFound) { 74 73 $dictionary->updatePronDict($pronDict); 75 74 } … … 86 85 my ($self)= @_; 87 86 my $audioBook = $self->{'audioBookObject'}; 88 my $debug = $audioBook->getDebug ;87 my $debug = $audioBook->getDebug(); 89 88 90 89 my $audio = AudioBook::Audio->new($self); … … 124 123 } 125 124 125 =item * getMissingWordFound() 126 127 =cut 128 129 sub getMissingWordFound { 130 my $self = shift; 131 return $self->{'missingWordFound'}; 132 } 133 134 =item * getMissingWordsObject() 135 136 =cut 137 138 sub getMissingWordsObject { 139 my $self = shift; 140 return $self->{'missingWordsObject'}; 141 } 142 126 143 =head1 Change Log 127 144