From 891428159dd27e5648676b7b9b51c5a2fe2f83ed Mon Sep 17 00:00:00 2001 From: Matthew Somerville Date: Tue, 7 Jun 2011 17:11:50 +0100 Subject: Remove fake_q and most of now-unused Page.pm. --- perllib/Problems.pm | 13 ------------- 1 file changed, 13 deletions(-) (limited to 'perllib/Problems.pm') diff --git a/perllib/Problems.pm b/perllib/Problems.pm index b742932c1..c1430b540 100644 --- a/perllib/Problems.pm +++ b/perllib/Problems.pm @@ -27,19 +27,6 @@ sub site_restriction { return $site_restriction_hash; } -sub set_site_restriction { - my $q = shift; - my $site = $q->{site}; - if ($site ne 'fixmystreet'){ - my $cobrand = Page::get_cobrand($q); - my $cobrand_data = Cobrand::extra_data($cobrand, $q); - ($site_restriction, $site_key) = Cobrand::site_restriction($cobrand, $cobrand_data); - } else { - $site_restriction = ''; - $site_key = 0; - } -} - # Set the site restrictions using the new cobrand style - no need to special # case 'fixmystreet' as default cobrand takes care of that. sub set_site_restriction_with_cobrand_object { -- cgit v1.2.3