Hello again,
I am sorry for noising, but my first posting was a little hasty I think.
I think this approach is better as it uses the official interface and
will therefore be more compatible:
Index: Embperl_2.3.0.pm
===================================================================
RCS file: /var/cvsroot/webserver/portal/temp/Embperl_2.3.0.pm,v
retrieving revision 1.1
diff -r1.1 Embperl_2.3.0.pm
315d314
<
317d315
< my $params ;
321,323c319,323
< #$params = $cgi->param_fetch( $_ ) ;
< $params = $cgi->{$_} ;
< if ($#$params > 0)
---
> #$params = $cgi->param_fetch( $_ ) ;
> #since Version 3.38 CGI stores params and values in separate
"namespace"
> #http://rt.perl.org/rt3//Ticket/Display.html?id=24294
> my @values = $cgi->param($_);
> if ($#values > 0)
325c325
< $fdat->{ $_ } = join ("\t", @$params) ;
---
> $fdat->{ $_ } = join ( $self -> config -> mult_field_sep() ,
@values) ;
329c329
< $fdat->{ $_ } = $params -> [0] ;
---
> $fdat->{ $_ } = $values[0] ;
--
mit freundlichem Gruß,
Frank Wesemann
Fotofinder GmbH USt-IdNr. DE812854514
Software Entwicklung Web: http://www.fotofinder.com/
Potsdamer Str. 96 Tel: +49 30 25 79 28 90
10785 Berlin Fax: +49 30 25 79 28 999
Sitz: Berlin
Amtsgericht Berlin Charlottenburg (HRB 73099)
Geschäftsführer: Ali Paczensky
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-h...@perl.apache.org
