oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

More deprecated Form code

Browse source
This commit is contained in:
Colin Kuskie 2011-12-01 14:43:32 -08:00
parent ec0b35cda5
commit f0d3f0c52f
2 changed files with 24 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Form.pm
View file

@ -146,12 +146,13 @@ sub formHeader {
# Fix a query string in the action URL
use WebGUI::Form::CsrfToken;
my $hidden = WebGUI::Form::CsrfToken->new($session)->toHtml;
use WebGUI::Form::Hidden;
if ($action =~ /\?/) {
($action, my $query) = split /\?/, $action, 2;
my @params = split /[&;]/, $query;
foreach my $param ( @params ) {
my ($name, $value) = split /=/, $param;
$hidden .= hidden( $session, { name => $name, value => $value } );
$hidden .= WebGUI::Form::Hidden->new( $session, { name => $name, value => $value } )->toHtml;
}
}