diff options
Diffstat (limited to 'perllib')
| -rw-r--r-- | perllib/FixMyStreet/DB/Factories.pm | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/perllib/FixMyStreet/DB/Factories.pm b/perllib/FixMyStreet/DB/Factories.pm index b66b27c5d..4cbab4753 100644 --- a/perllib/FixMyStreet/DB/Factories.pm +++ b/perllib/FixMyStreet/DB/Factories.pm @@ -94,9 +94,25 @@ sub data { my $self = shift; my %titles = ( + 'Abandoned vehicles' => ['Car on pavement, has been there for months', 'Silver car outside house, never used'], + 'Bus stops' => ['Bus stop sign wonky', 'Information board broken'], + 'Dog fouling' => ['Bad dog fouling in alley way', 'Inconsiderate dog owner' ], + 'Flyposting' => ['Fence by road covered in posters', 'Under the bridge is a poster haven'], + 'Flytipping' => ['Flytipping on country lane', 'Ten bags of rubbish'], + 'Footpath/bridleway away from road' => ['Vehicle blocking footpath'], + 'Graffiti' => ['Graffiti', 'Graffiti', 'Offensive graffiti', 'Graffiti on the bridge', 'Remove graffiti'], + 'Parks/landscapes' => ['Full litter bins', 'Allotment gate needs repair'], + 'Pavements' => ['Hedge encroaching pavement', 'Many cracked slabs on street corner'], 'Potholes' => ['Deep pothole', 'Small pothole', 'Pothole in cycle lane', 'Pothole on busy pavement', 'Large pothole', 'Sinking manhole'], + 'Public toilets' => ['Door will not open'], + 'Roads/highways' => ['Restricted sight line by zig-zag lines', 'Missing lane markings'], + 'Road traffic signs' => ['Bent sign', 'Zebra crossing', 'Bollard missing'], + 'Rubbish (refuse and recycling)' => ['Missing bin', 'Bags left uncollected'], + 'Street cleaning' => ['Two abandoned trollies', 'Yet more litter'], 'Street lighting' => ['Faulty light', 'Street light not working', 'Lights out in tunnel', 'Light not coming on', 'Light not going off'], - 'Graffiti' => ['Graffiti', 'Graffiti', 'Offensive graffiti', 'Graffiti on the bridge', 'Remove graffiti'], + 'Street nameplates' => ['Broken nameplate', 'Missing nameplate'], + 'Traffic lights' => ['Out of sync lights', 'Always on green', 'Broken light'], + 'Trees' => ['Young tree damaged', 'Tree looks dangerous in wind'], 'Other' => ['Loose drain cover', 'Flytipping on country lane', 'Vehicle blocking footpath', 'Hedge encroaching pavement', 'Full litter bins'], ); my %photos = ( @@ -172,7 +188,7 @@ sub create_problem { $params->{latitude} += rand(2 * $inaccurate_km) - $inaccurate_km; $params->{longitude} += rand(3 * $inaccurate_km) - 1.5 * $inaccurate_km, $params->{title} ||= $titles->[$rand]; - $params->{detail} ||= $descs->[$rand]; + $params->{detail} ||= $descs->[$rand] || 'Please deal with this issue, thank you.'; $params->{photo_id} = $photo; $params->{confirmed} = DateTime::Format::Pg->format_datetime($params->{confirmed}); return $self->create($params); |