diff options
| author | Matthew Somerville <matthew@fury.ukcod.org.uk> | 2011-02-22 14:54:50 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@fury.ukcod.org.uk> | 2011-02-22 14:54:50 +0000 |
| commit | 6944265ccee3e9d7a1a4f1e6b2a26f005021ab5e (patch) | |
| tree | 238ecd627f20c62e2d173121c639709f83efdbce | |
| parent | f36c08b67deb859423aef7f4c4c8305838f8d076 (diff) | |
Check geocoded strings have Norge in them.
| -rw-r--r-- | perllib/Cobrands/Fiksgatami/Util.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perllib/Cobrands/Fiksgatami/Util.pm b/perllib/Cobrands/Fiksgatami/Util.pm index 9fb448be5..eba57ba92 100644 --- a/perllib/Cobrands/Fiksgatami/Util.pm +++ b/perllib/Cobrands/Fiksgatami/Util.pm @@ -34,6 +34,12 @@ sub disambiguate_location { return $s; } +sub geocoded_string_check { + my ($self, $s) = @_; + return 1 if $s =~ /, Norge/; + return 0; +} + sub area_types { return ( 'NKO', 'NFY' ); } |