Merge branch '1743-report-extras-editing'

1 files changed, 25 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/DB/ResultSet/ReportExtraFields.pm b/perllib/FixMyStreet/DB/ResultSet/ReportExtraFields.pm
new file mode 100644
index 000000000..1348df3c2
--- /dev/null
+++ b/perllib/FixMyStreet/DB/ResultSet/ReportExtraFields.pm
@@ -0,0 +1,25 @@
+package FixMyStreet::DB::ResultSet::ReportExtraFields;
+use base 'DBIx::Class::ResultSet';
+
+use strict;
+use warnings;
+
+sub for_cobrand {
+    my ( $rs, $cobrand ) = @_;
+
+    my $result = $rs->search(
+        { cobrand => [ undef, $cobrand->moniker, '' ] }
+    );
+    return $result;
+}
+
+sub for_language {
+    my ( $rs, $language ) = @_;
+
+    my $result = $rs->search(
+        { language => [ undef, $language, '' ] }
+    );
+    return $result;
+}
+
+1;