diff options
Diffstat (limited to 'perllib/Utils.pm')
| -rw-r--r-- | perllib/Utils.pm | 27 |
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 ); |