t/Cobrands/Mysite/Util.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

#!/usr/bin/perl -w
#
# Util.pm:
# Test Cobranding for FixMyStreet.
#
#
# Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved.
# Email: louise@mysociety.org. WWW: http://www.mysociety.org
#
# $Id: Util.pm,v 1.4 2009-09-10 08:54:33 louise Exp $

package Cobrands::Mysite::Util;
use Page;
use strict;
use Carp;
use mySociety::Web qw(ent);

sub new{
    my $class = shift;
    return bless {}, $class;
}

sub site_name{
    return 'mysite';
}

sub site_restriction{
    return (' and council = 1 ', 99);
}

sub page{
    my %params = ();
    return ("A cobrand produced page", %params);
}

sub base_url{
    return 'http://mysite.example.com';
}

1;