diff options
| author | matthew <matthew> | 2010-01-15 17:08:55 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2010-01-15 17:08:55 +0000 |
| commit | 8ec21da415e20395ae9a2b6b0cc48f435f4f02f1 (patch) | |
| tree | 7b0177687a054b1b95f5783597b0a7e2c63ee139 | |
| parent | 7056a095ea4baa4e0d9fcf8e65a36e2ffc218337 (diff) | |
Allow status_code as parameter.
| -rw-r--r-- | perllib/Page.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index 0d22ed5dd..81b21d0b7 100644 --- a/perllib/Page.pm +++ b/perllib/Page.pm @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: Page.pm,v 1.229 2010-01-15 16:55:25 matthew Exp $ +# $Id: Page.pm,v 1.230 2010-01-15 17:08:55 matthew Exp $ # package Page; @@ -280,7 +280,7 @@ sub header ($%) { my $default_params = Cobrand::header_params(get_cobrand($q), $q, %params); my %default_params = %{$default_params}; %params = (%default_params, %params); - my %permitted_params = map { $_ => 1 } qw(title rss js expires lastmodified template cachecontrol context); + my %permitted_params = map { $_ => 1 } qw(title rss js expires lastmodified template cachecontrol context status_code); foreach (keys %params) { croak "bad parameter '$_'" if (!exists($permitted_params{$_})); } |