Редакция 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) |