diff options
| author | Matthew Somerville <matthew-github@dracos.co.uk> | 2017-08-15 09:29:07 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2017-08-15 15:19:22 +0100 |
| commit | 5101c6fc13e4199ec8cb07fd0d405a6dcea68a60 (patch) | |
| tree | f853ff09e8f1cbcb739e9be1ed441bc700459928 /perllib/FixMyStreet/DB/ResultSet/Body.pm | |
| parent | d522ef800a7c11547857597be092ae2b59f77f29 (diff) | |
Add fn to fetch bodies plus the translated names.
Diffstat (limited to 'perllib/FixMyStreet/DB/ResultSet/Body.pm')
| -rw-r--r-- | perllib/FixMyStreet/DB/ResultSet/Body.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/DB/ResultSet/Body.pm b/perllib/FixMyStreet/DB/ResultSet/Body.pm index 6802ed604..e79d038b1 100644 --- a/perllib/FixMyStreet/DB/ResultSet/Body.pm +++ b/perllib/FixMyStreet/DB/ResultSet/Body.pm @@ -14,4 +14,15 @@ sub for_areas { return $result; } +sub all_translated { + my $rs = shift; + my $schema = $rs->result_source->schema; + my @bodies = $rs->search(undef, { + '+columns' => { 'msgstr' => 'translations.msgstr' }, + join => 'translations', + bind => [ 'name', $schema->lang, 'body' ], + })->all; + return @bodies; +} + 1; |