diff options
author | louise <louise> | 2009-10-07 08:18:42 +0000 |
---|---|---|
committer | louise <louise> | 2009-10-07 08:18:42 +0000 |
commit | 00ea122e9deb56c85009999944e46cbb0b271088 (patch) | |
tree | d4d5486ae34e3bdb3d41e21b0f89536235e46bc0 /perllib/Cobrand.pm | |
parent | 76f9def876cd88de94a4b857cfd3e224479068d0 (diff) |
Allow cobrand to limit the number of items shown in the list of problems on the map
Diffstat (limited to 'perllib/Cobrand.pm')
-rw-r--r-- | perllib/Cobrand.pm | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/perllib/Cobrand.pm b/perllib/Cobrand.pm index 96dddd359..32bf35377 100644 --- a/perllib/Cobrand.pm +++ b/perllib/Cobrand.pm @@ -7,7 +7,7 @@ # Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved. # Email: louise@mysociety.org. WWW: http://www.mysociety.org # -# $Id: Cobrand.pm,v 1.24 2009-09-30 10:00:37 louise Exp $ +# $Id: Cobrand.pm,v 1.25 2009-10-07 08:18:42 louise Exp $ package Cobrand; use strict; @@ -426,6 +426,25 @@ sub site_title { } } +=item on_map_list_limit COBRAND + +Return the maximum number of items to be given in the list of reports +on the map + +=cut +sub on_map_list_limit { + my ($cobrand) = @_; + my $handle; + if ($cobrand){ + $handle = cobrand_handle($cobrand); + } + if ( !$cobrand || !$handle || !$handle->can('on_map_list_limit')){ + return undef; + } else{ + return $handle->on_map_list_limit(); + } +} + 1; |