Merge branch 'london'

1 files changed, 29 insertions, 0 deletions

diff --git a/perllib/Utils.pm b/perllib/Utils.pm
index 21994d20b..c16a02cd4 100644
--- a/perllib/Utils.pm
+++ b/perllib/Utils.pm
@@ -107,4 +107,33 @@ sub truncate_coordinate {
     return $out;
 }
 
+sub london_categories {
+    return {
+        'Abandoned vehicle' => 'AbandonedVehicle',
+        'Car parking' => 'Parking',
+        'Dangerous structure' => 'DangerousStructure',
+        'Dead animal' => 'DeadAnimal',
+        'Dumped cylinder' => 'DumpedCylinder',
+        'Dumped rubbish' => 'DumpedRubbish',
+        'Flyposting' => 'FlyPosting',
+        'Graffiti' => 'Graffiti',
+        'Litter bin' => 'LitterBin',
+        'Public toilet' => 'PublicToilet',
+        'Refuse collection' => 'RefuseCollection',
+        'Road or pavement defect' => 'Road',
+        'Road or pavement obstruction' => 'Obstruction',
+        'Skip problem' => 'Skip',
+        'Street cleaning' => 'StreetCleaning',
+        'Street drainage' => 'StreetDrainage',
+        'Street furniture' => 'StreetFurniture',
+        'Street needs gritting' => 'StreetGritting',
+        'Street lighting' => 'StreetLighting',
+        'Street sign' => 'StreetSign',
+        'Traffic light' => 'TrafficLight',
+        'Tree (dangerous)' => 'DangerousTree',
+        'Tree (fallen branches)' => 'FallenTree',
+        'Untaxed vehicle' => 'UntaxedVehicle',
+    };
+}
+
 1;