From: Martin Mares <mj@ucw.cz>
Date: Tue, 31 Aug 2010 14:39:18 +0000 (+0200)
Subject: UCW::CGI: Fixed a regression in processing of multiple controls with the same name
X-Git-Tag: v5.0~142
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=f89a2cb16ceccf276034eedc52af9637266e79e3;p=libucw.git

UCW::CGI: Fixed a regression in processing of multiple controls with the same name
---

diff --git a/ucw/perl/UCW/CGI.pm b/ucw/perl/UCW/CGI.pm
index 48d31ee2..f7e033d1 100644
--- a/ucw/perl/UCW/CGI.pm
+++ b/ucw/perl/UCW/CGI.pm
@@ -134,6 +134,13 @@ sub http_get($) {
 my $main_arg_table;
 my %raw_args;
 
+sub parse_raw_args_ll($$) {
+	my ($arg, $s) = @_;
+	$s =~ s/\r\n/\n/g;
+	$s =~ s/\r/\n/g;
+	push @{$raw_args{$arg}}, $s;
+}
+
 sub parse_raw_args($) {
 	my ($s) = @_;
 	$s =~ s/\s+//;
@@ -143,19 +150,10 @@ sub parse_raw_args($) {
 		$_ = $2;
 		s/\+/ /g;
 		s/%(..)/pack("H2",$1)/eg;
-		s/\r\n/\n/g;
-		s/\r/\n/g;
-		$raw_args{$arg} = $_;
+		parse_raw_args_ll($arg, $_);
 	}
 }
 
-sub parse_raw_args_ll($$) {
-	my ($arg, $s) = @_;
-	$s =~ s/\r\n/\n/g;
-	$s =~ s/\r/\n/g;
-	$raw_args{$arg} = $s;
-}
-
 sub parse_multipart_form_data();
 
 sub init_args() {
@@ -206,20 +204,21 @@ sub parse_args($) {			# CAVEAT: attached files must be defined in the main arg t
 	for my $arg (keys %$args) {
 		my $a = $args->{$arg};
 		defined($raw_args{$arg}) or next;
-		$_ = $raw_args{$arg};
-		$a->{'multiline'} or s/(\n|\t)/ /g;
-		s/^\s+//;
-		s/\s+$//;
-		if (my $rx = $a->{'check'}) {
-			if (!/^$rx$/) { $_ = $a->{'default'}; }
-		}
+		for (@{$raw_args{$arg}}) {
+			$a->{'multiline'} or s/(\n|\t)/ /g;
+			s/^\s+//;
+			s/\s+$//;
+			if (my $rx = $a->{'check'}) {
+				if (!/^$rx$/) { $_ = $a->{'default'}; }
+			}
 
-		my $v = $a->{'var'};
-		my $r = ref($v);
-		if ($r eq 'SCALAR') {
-			$$v = $_;
-		} elsif ($r eq 'ARRAY') {
-			push @$v, $_;
+			my $v = $a->{'var'};
+			my $r = ref($v);
+			if ($r eq 'SCALAR') {
+				$$v = $_;
+			} elsif ($r eq 'ARRAY') {
+				push @$v, $_;
+			}
 		}
 	}
 }