diff options
| author | louise <louise> | 2009-09-30 10:00:37 +0000 |
|---|---|---|
| committer | louise <louise> | 2009-09-30 10:00:37 +0000 |
| commit | 54aff71e10da9f3e31ada92a666c4df9db1e9949 (patch) | |
| tree | b43ff309732e637b796d0dacb376098afb66fd27 | |
| parent | 453be5eb776148333cd77a19a65200968dd5e178 (diff) | |
More doc
| -rw-r--r-- | perllib/Cobrand.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/perllib/Cobrand.pm b/perllib/Cobrand.pm index ca7ffd1c1..96dddd359 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.23 2009-09-28 15:38:30 louise Exp $ +# $Id: Cobrand.pm,v 1.24 2009-09-30 10:00:37 louise Exp $ package Cobrand; use strict; @@ -118,9 +118,14 @@ Return the contact email for the cobranded version of the site =cut sub contact_email { my $cobrand = shift; + return get_cobrand_conf($cobrand, 'CONTACT_EMAIL'); } +=item get_cobrand_conf COBRAND KEY + +Get the value for KEY from the config file for COBRAND +=cut sub get_cobrand_conf { my ($cobrand, $key) = @_; my $value; |