blob: 8aedd2c8cf56ef4034c93452ab23f41824f84e37 (
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
#!/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.20 2009-12-16 12:43:13 matthew 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_alert_data {
return "Cobrand alert data";
}
sub extra_params {
return 'key=value';
}
sub header_params {
my %params = ('key' => 'value');
return \%params;
}
sub root_path_js {
return 'root path js';
}
sub site_title {
return 'Mysite Title';
}
sub on_map_list_limit {
return 30;
}
sub url {
return '/transformed_url';
}
sub show_watermark {
return 0;
}
sub allow_photo_upload {
return 0;
}
sub allow_photo_display {
return 0;
}
sub council_check {
return 0;
}
sub recent {
return [
{ id => 1, title => 'Title 1' },
{ id => 2, title => 'Title 2' }
];
}
1;
|
