aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/Problems.pm
diff options
context:
space:
mode:
authorStruan Donald <struan@exo.org.uk>2011-05-19 12:56:27 +0100
committerStruan Donald <struan@exo.org.uk>2011-05-19 12:56:27 +0100
commit19f27c24d9dbe6f83a6778f949a35f73514f73b6 (patch)
treefb34a44726891ddf8e2d9db6ad6e7eaf3d01f0a7 /perllib/Problems.pm
parent109b706b68d85708dd023faedd8065efc3839a85 (diff)
parentd44c6e58d1efe505006a38a62b61b1045031dd49 (diff)
Merge branch 'migrate_to_catalyst' of ssh://git.mysociety.org/data/git/public/fixmystreet into migrate_to_catalyst
Diffstat (limited to 'perllib/Problems.pm')
-rw-r--r--perllib/Problems.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/perllib/Problems.pm b/perllib/Problems.pm
index 76ccdc677..48203b980 100644
--- a/perllib/Problems.pm
+++ b/perllib/Problems.pm
@@ -21,6 +21,11 @@ use mySociety::MaPit;
my $site_restriction = '';
my $site_key = 0;
+my $site_restriction_hash = {};
+
+sub site_restriction {
+ return $site_restriction_hash;
+}
sub set_site_restriction {
my $q = shift;
@@ -41,7 +46,7 @@ sub set_site_restriction_with_cobrand_object {
my $cobrand = shift;
my $cobrand_data = $cobrand->extra_data;
- ( $site_restriction, $site_key ) =
+ ( $site_restriction, $site_key, $site_restriction_hash ) =
$cobrand->site_restriction($cobrand_data);
}