diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2012-12-14 17:45:42 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2012-12-15 00:11:06 +0000 |
| commit | da29e8a75eaa92e98807ad89d29d3d1f3c01bc14 (patch) | |
| tree | aed044b4e4fa1fb0cf7d0e3274d8e15973089bd2 /perllib/FixMyStreet/DB/Result/Body.pm | |
| parent | ac71de34b015176b44d35c83cf5e4a838ed75723 (diff) | |
Migrate Reports.pm to use bodies, not areas.
Diffstat (limited to 'perllib/FixMyStreet/DB/Result/Body.pm')
| -rw-r--r-- | perllib/FixMyStreet/DB/Result/Body.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/DB/Result/Body.pm b/perllib/FixMyStreet/DB/Result/Body.pm index e4725d141..73d763a6e 100644 --- a/perllib/FixMyStreet/DB/Result/Body.pm +++ b/perllib/FixMyStreet/DB/Result/Body.pm @@ -69,6 +69,10 @@ __PACKAGE__->has_many( # Created by DBIx::Class::Schema::Loader v0.07017 @ 2012-12-14 09:23:59 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:tvTHtIa0GrtptadZYHEM1Q +sub url { + my ( $self, $c ) = @_; + # XXX $areas_info was used here for Norway parent - needs body parents, I guess + return $c->uri_for( '/reports/' . $c->cobrand->short_name( $self ) ); +} -# You can replace this text with custom code or comments, and it will be preserved on regeneration 1; |