[vhffs-dev] [1952] CGI->query_string() returns query_string param plus POST values, err , workaround added using CGI->url_param()

[subversion@xxxxxxxxxxxxx]

Revision: 1952
Author:   gradator
Date:     2012-01-26 21:34:51 +0100 (Thu, 26 Jan 2012)
Log Message:
-----------
CGI->query_string() returns query_string param plus POST values, err, workaround added using CGI->url_param()

Modified Paths:
--------------
    trunk/vhffs-api/src/Vhffs/Panel/Main.pm

Modified: trunk/vhffs-api/src/Vhffs/Panel/Main.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Panel/Main.pm	2012-01-26 20:18:22 UTC (rev 1951)
+++ trunk/vhffs-api/src/Vhffs/Panel/Main.pm	2012-01-26 20:34:51 UTC (rev 1952)
@@ -472,8 +472,15 @@
 
 	$vars = {} unless(defined $vars);
 
+	my $query_string = '';
+	foreach( my @params = $cgi->url_param ) {
+		$query_string .= $_.'='.$cgi->url_param($_).';' if defined $cgi->url_param($_);
+	}
+	chop $query_string;
+	undef $query_string unless $query_string;
+
 	$vars->{do} = $cgi->url_param('do');
-	$vars->{query_string} = $cgi->query_string;
+	$vars->{query_string} = $query_string;
 	$vars->{theme} = $conf->get_panel->{default_theme} unless defined $vars->{theme};
 	$vars->{panel_url} = $conf->get_panel->{url};
 	$vars->{title} = sprintf( gettext( '%s\'s Panel' ), $conf->get_host_name );