1 files changed, 27 insertions, 0 deletions
diff --git a/perllib/Utils.pm b/perllib/Utils.pm
index 4e64836c6..3c8978881 100644
--- a/perllib/Utils.pm
+++ b/perllib/Utils.pm
@@ -140,6 +140,33 @@ sub london_categories {
     };
 }
 
+sub barnet_categories {
+    # The values here are KBIDs from Barnet's system: see bin/send-reports for formatting 
+    #    category                   KBID    Barnet's title for this KBID
+    return {
+        'Abandoned vehicle'      => 0,
+        'Blocked gully/drain'    => 255,    # Gullies-Blocked
+        'Bus stop'               => 0,
+        'Dead animal'            => 286,    # Animals-Dead-Removal
+        'Dog fouling'            => 288,    # Dog Fouling-Clear
+        'Flyposting'             => 0,
+        'Flytipping'             => 347,    # Fly tipping-Clear
+        'Graffiti'               => 292,    # Graffiti-Removal
+        'Park/landscape'         => 0,
+        'Pavement/footpath'      => 195,    # Pavements-Damaged/Cracked
+        'Pothole'                => 204,    # Pothole
+        'Public toilet'          => 0,
+        'Road sign'              => 432,    # Roads Signs - Maintenance
+        'Roads/highways'         => 190,    # Complaint-Highways Maintenance
+        'Rubbish/litter'         => 349,    # Accumulated Litter
+        'Street cleaning'        => 0,
+        'Street lighting'        => 251,    # Street Lighting
+        'Street nameplate'       => 0,
+        'Traffic lights'         => 103,    # Traffic lights
+        'Tree'                   => 162,    # Tree section
+    };
+}
+
 =head2 trim_text
 
     my $text = trim_text( $text_to_trim );