blob: d90aad6df7033ceba83b52d540946262c1e4f4b2 (
plain)
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#!/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.9 2009-09-22 15:56:44 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';
}
sub base_url_for_emails {
return 'http://mysite.foremails.example.com';
}
sub disambiguate_location {
return 'Specific Location';
}
sub form_elements {
return "Extra html";
}
sub extra_problem_data {
return "Cobrand problem data";
}
sub extra_update_data {
return "Cobrand update data";
}
sub extra_params {
return 'key=value';
}
sub header_params {
my %params = ('key' => 'value');
return \%params;
}
1;
|
