From 2d0503ccfd4c55ea7252e19603fe4732c2f36f9e Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew@mysociety.org>
Date: Wed, 8 Jun 2011 12:39:40 +0100
Subject: Start moving stuff out of Problems.pm, do JSON as per its better-way
 comment.

---
 perllib/FixMyStreet/DB/ResultSet/Problem.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'perllib/FixMyStreet/DB/ResultSet/Problem.pm')

diff --git a/perllib/FixMyStreet/DB/ResultSet/Problem.pm b/perllib/FixMyStreet/DB/ResultSet/Problem.pm
index 835ab1b45..b029caf3b 100644
--- a/perllib/FixMyStreet/DB/ResultSet/Problem.pm
+++ b/perllib/FixMyStreet/DB/ResultSet/Problem.pm
@@ -40,4 +40,18 @@ sub summary_count {
     );
 }
 
+my $site_restriction;
+my $site_key;
+
+sub set_restriction {
+    my ( $rs, $sql, $key, $restriction ) = @_;
+    $site_key = $key;
+    $site_restriction = $restriction;
+}
+
+sub site_restricted {
+    my ( $rs ) = @_;
+    return $rs->search( $site_restriction );
+}
+
 1;
-- 
cgit v1.2.3