Remove more deprecated Form code.

This commit is contained in:
Colin Kuskie 2011-11-24 14:01:24 -08:00
parent 01a1558cac
commit bcc81e906c
3 changed files with 16 additions and 8 deletions

View file

@ -144,7 +144,8 @@ sub formHeader {
my $enctype = (exists $params->{enctype} && $params->{enctype} ne "") ? $params->{enctype} : "multipart/form-data";
# Fix a query string in the action URL
my $hidden = csrfToken($session);
use WebGUI::Form::CsrfToken;
my $hidden = WebGUI::Form::CsrfToken->new($session)->toHtml;
if ($action =~ /\?/) {
($action, my $query) = split /\?/, $action, 2;
my @params = split /[&;]/, $query;