Changeset 2629
- Timestamp:
- 07/13/08 14:36:42 (3 months ago)
- Files:
-
- Trunk/Scripts/Audio_scripts/Repository.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/Audio_scripts/Repository.pm
r2517 r2629 65 65 my %ProcessedUserSubmissions; 66 66 foreach my $AudioDirName (@$dirlist) { 67 my $readme = UserSubmission::README->new($parms, "$ToBeProcessedDir/$AudioDirName/etc/README"); 67 # !!!!!! 68 #my $readme = UserSubmission::README->new($parms, "$ToBeProcessedDir/$AudioDirName/etc/README"); 69 my $readme = UserSubmission::README->new($parms, "$ToBeProcessedDir/$AudioDirName/etc/README",$AudioDirName ); 68 70 # !!!!!! 69 71 my $language = $readme->getLanguage(); 70 72 $parms->setSpeechCorpusLanguage($language); 71 # !!!!!! 73 72 74 my $AudioDirectory = $parms->getAudioDirectory; 73 75 $$parms{"AudioSubdirectory"} = $readme->getFiletype(); # set to wav or flac based on README contents