aesthetic.. remove sn from the beg. of model names

This commit is contained in:
Max Baker
2005-02-17 01:45:46 +00:00
parent d38bfcbbf7
commit e899f76249

View File

@@ -203,7 +203,8 @@ sub model {
$model = $1 if $desc =~ /\s+([a-z]{2}\d{4})\D/i;
$model = $1 if $desc =~ /\b(FW[A-Z\d]+)/;
$model =~ s/^sn//;
return $model;
}