X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2FMason%2FRequest.pm;h=bf704bda7980e3a0d0d3f024be9615b44533801e;hp=565f85eb06bb19e71fc0446cb8addbe16a432011;hb=83053569b3d965924e2e1d4f5b199609ec7c29af;hpb=3f8ef5c72aa4fbfad5c320d91abdd4f2d547c029 diff --git a/FS/FS/Mason/Request.pm b/FS/FS/Mason/Request.pm index 565f85eb0..bf704bda7 100644 --- a/FS/FS/Mason/Request.pm +++ b/FS/FS/Mason/Request.pm @@ -51,7 +51,8 @@ sub freeside_setup { } else { package HTML::Mason::Commands; - use vars qw( $cgi $p $fsurl ); + use vars qw( $cgi $p $fsurl $lh ); + use Encode; use FS::UID qw( cgisuidsetup ); use FS::CGI qw( popurl rooturl ); @@ -71,6 +72,15 @@ sub freeside_setup { die "unknown mode $mode"; } + # + foreach my $param ( $cgi->param ) { + my @values = $cgi->param($param); + next if $cgi->uploadInfo($values[0]); + #warn $param; + @values = map decode(utf8=>$_), @values; + $cgi->param($param, @values); + } + } }