diff options
| author | Jon Kristensen <info@jonkri.com> | 2013-08-21 19:53:24 +0200 |
|---|---|---|
| committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2014-03-11 16:54:07 +0000 |
| commit | 5f2d10118fe9f6ef3456844dddbc6c6ab80fd9dd (patch) | |
| tree | 7529d538495a00016c12e30d4777262b6665b211 /perllib/FixMyStreet/Cobrand/FixaMinGata.pm | |
| parent | b5f574b7a827112b41a45b7d6616f3efe7dc9225 (diff) | |
Fix "Statens vegvesen" bug
Fixes #4.
Diffstat (limited to 'perllib/FixMyStreet/Cobrand/FixaMinGata.pm')
| -rw-r--r-- | perllib/FixMyStreet/Cobrand/FixaMinGata.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/perllib/FixMyStreet/Cobrand/FixaMinGata.pm b/perllib/FixMyStreet/Cobrand/FixaMinGata.pm index f1059086f..57cdb22f7 100644 --- a/perllib/FixMyStreet/Cobrand/FixaMinGata.pm +++ b/perllib/FixMyStreet/Cobrand/FixaMinGata.pm @@ -106,12 +106,11 @@ sub guess_road_operator { my $highway = $inforef->{highway} || "unknown"; my $refs = $inforef->{ref} || "unknown"; - # What should we put in place of "Statens vegvesen"? "Trafikverket" - return "Statens vegvesen" + return "Trafikverket" if $highway eq "trunk" || $highway eq "primary"; for my $ref (split(/;/, $refs)) { - return "Statens vegvesen" + return "Trafikverket" if $ref =~ m/E ?\d+/ || $ref =~ m/Fv\d+/i; } return ''; |