Re: Large Select Box Selection Error

[Josh Chamas]

Steve Lilley wrote:
Here are my summarized script results.  I have no idea what the "te" is. 
The more x's I put in the fewer test select box results I get.  If I put 
in 7 x's the loop runs to 164. but does not print the value.

The odd thing is that in IE 6 will make it to 901, Mozilla makes it to 
163 and lynx it makes it to 809.

Would you send me privately the output you get from "View Source" for both
scripts under Mozilla?  Is the "View Source" output different vs. IE or
just the rendering of the source?
--Josh


Form Results
-------------------------------------
test = ARRAY(0x87184ac)
1.   1
2.   2
3.   3
...
161.   161
162.   162
163.   163
te =
sx = xxxxxxxxxx
Josh Chamas wrote:

What do you mean it craps out?  I have written select boxes in 
Apache::ASP
that have had 5000+ entries in them, so I know it can do it, but would
like to know what kind of problem you are experiencing in particular.
Also, does the problem manifest cross browser, or is this particular
to IE or Mozilla?

--Josh

Steve Lilley wrote:

One of my applications has a select box which can get very large, 
however I have found that the Apache::ASP does not handle it 
particularly well.  I have tested it with the following two scripts. 
The asp version craps out at about 165 while the CGI handles at least 
1000 everytime.  I have the file upload max set well beyond 165.

Here are the test scripts.

#!/usr/bin/perl /usr/bin/asp-perl
# first the large select box form
<form name="main" action="env.cgi" method="POST">
 <input type="text" name="sx">
 <select name="test" multiple size="10">
 <%foreach my $i (1..1000) {%>
 <option value="<%=$i%>" SELECTED><%=$i%></option>
 <%}%>
 </select>
 <input type="submit">
</form>
#!/usr/bin/perl /usr/bin/asp-perl
# the asp dump of the values
<%
my $fh = $Request->Form();
my $p=1;
%>
Form Results<br>
-------------------------------------<br>
<%foreach my $key (keys %{$fh}) {%>
 <%=$key . ' = '. $fh->{$key} . '<br>'%>
 <%if ($fh->{$key} =~ 'ARRAY') {
   foreach my $i (@{$fh->{$key}}) {%>
   <%=$p++%>.&nbsp;&nbsp;&nbsp;<%= $i %><br>
   <%} $p=1;%>
 <%}%>
<%}%>
<br>
#!/usr/bin/perl
# the CGI dump of the values
use CGI;
my $cgi = new CGI;

print $cgi->header;
print 'QueryString Results<br>';
my @values = $cgi->param('test');
foreach my $key (@values) {
 print $key . '<br>';
}
Any help will be greatly appreciated.

Steve





---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]