diff options
| author | matthew <matthew> | 2009-10-26 15:42:12 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2009-10-26 15:42:12 +0000 |
| commit | c544373442bb0a19c5cdf1a792ad00754454c3df (patch) | |
| tree | 0025a4d70b6946e927189bf068a1981d88729737 /web-admin | |
| parent | c741c6da90f61c12dcbdea42e4dd00ec71484f7c (diff) | |
url() appears to be broken in lenny CGI.pm.
Diffstat (limited to 'web-admin')
| -rwxr-xr-x | web-admin/index.cgi | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/web-admin/index.cgi b/web-admin/index.cgi index d06700662..100558360 100755 --- a/web-admin/index.cgi +++ b/web-admin/index.cgi @@ -7,10 +7,10 @@ # Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved. # Email: francis@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: index.cgi,v 1.72 2009-08-20 17:14:24 matthew Exp $ +# $Id: index.cgi,v 1.73 2009-10-26 15:42:12 matthew Exp $ # -my $rcsid = ''; $rcsid .= '$Id: index.cgi,v 1.72 2009-08-20 17:14:24 matthew Exp $'; +my $rcsid = ''; $rcsid .= '$Id: index.cgi,v 1.73 2009-10-26 15:42:12 matthew Exp $'; use strict; @@ -287,7 +287,7 @@ sub admin_council_contacts ($$) { print $q->p($links_html); # Display of addresses / update statuses form - print $q->start_form(-method => 'POST', -action => $q->url('relative'=>1)); + print $q->start_form(-method => 'POST', -action => './'); print $q->start_table({border=>1, cellpadding=>2, cellspacing=>0}); print $q->Tr({}, $q->th({}, ["Category", "Email", "Confirmed", "Deleted", "Last editor", "Note", "When edited", 'Confirm'])); foreach my $l (@$bci_data) { @@ -311,7 +311,7 @@ sub admin_council_contacts ($$) { # Display form for adding new category print $q->h2('Add new category'); - print $q->start_form(-method => 'POST', -action => $q->url('relative'=>1)); + print $q->start_form(-method => 'POST', -action => './'); if ($q->{site} ne 'emptyhomes') { print $q->p($q->strong("Category: "), $q->textfield(-name => "category", -size => 30)); @@ -362,7 +362,7 @@ sub admin_council_edit ($$$) { } # Display form for editing details - print $q->start_form(-method => 'POST', -action => $q->url('relative'=>1)); + print $q->start_form(-method => 'POST', -action => './'); map { $q->param($_, $bci_data->{$_}) } qw/category email confirmed deleted/; $q->param('page', 'councilcontacts'); $q->param('posted', 'new'); |