Редакция 12 | Редакция 14 | К новейшей редакции | Весь файл | Учитывать пробелы | Содержимое файла | Авторство | Последнее изменение | Открыть журнал | RSS
Редакция 12 | Редакция 13 | ||
---|---|---|---|
Строка 823... | Строка 823... | ||
823 | }
|
823 | }
|
824 | 824 | ||
825 | while ( $tok =~ /($_weather_types_pat)/gi ) |
825 | while ( $tok =~ /($_weather_types_pat)/gi ) |
826 | {
|
826 | {
|
827 | $engl .= " " . $_weather_types{$1}; ## figure out weather |
827 | $engl .= " " . $_weather_types{$1}; ## figure out weather |
828 | $rusl .= " " . $_weather_types_ru{$1}; |
828 | $rusl .= " " . $_weather_types_ru{$1} . ", "; |
829 | $rawl .= " " . $1; |
829 | $rawl .= " " . $1; |
830 | }
|
830 | }
|
- | 831 | $rusl = substr($rusl, 0, length($rusl)-2); |
|
831 | 832 | ||
832 | 833 | ||
833 | ## addl qualifier
|
834 | ## addl qualifier
|
834 | 835 | ||
835 | if (defined $addlqual) |
836 | if (defined $addlqual) |