diff options
author | Struan Donald <struan@exo.org.uk> | 2011-05-19 12:56:27 +0100 |
---|---|---|
committer | Struan Donald <struan@exo.org.uk> | 2011-05-19 12:56:27 +0100 |
commit | 19f27c24d9dbe6f83a6778f949a35f73514f73b6 (patch) | |
tree | fb34a44726891ddf8e2d9db6ad6e7eaf3d01f0a7 /perllib/Problems.pm | |
parent | 109b706b68d85708dd023faedd8065efc3839a85 (diff) | |
parent | d44c6e58d1efe505006a38a62b61b1045031dd49 (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.pm | 7 |
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); } |