/trunk/ModMETAR.pm |
---|
825,9 → 825,10 |
while ( $tok =~ /($_weather_types_pat)/gi ) |
{ |
$engl .= " " . $_weather_types{$1}; ## figure out weather |
$rusl .= " " . $_weather_types_ru{$1}; |
$rusl .= " " . $_weather_types_ru{$1} . ", "; |
$rawl .= " " . $1; |
} |
$rusl = substr($rusl, 0, length($rusl)-2); |
## addl qualifier |