Perl CGI'ers I am trying to create a scroll list populated with H#### strings via a foreach loop and I am having issues, so I opted for the standard HTML <SELECT NAME ... > But I really do not want this b/c I need to q->param what was selected by the users. Right now my code $q->param(htapes99) is passing perl -c but it seems my array is empty.
"<SELECT NAME=htapes99 SIZE=12 MULTIPLE>";
my @tape_imports = $q->param(htapes99)
In th foreach loop I have tried:
sub import99
{
print $q->h3
({-style=>'Color:#0000CC'},'Please Choose 9940 Tape Range for Import.'),
$q->h3
({-style=>'Color:#CC3300'},'Note: Inject Tapes via Acsls Prior To
Import!');
print $query->scrolling_list;
foreach (@ARRAY With H strings)
{
print ('htapes99',[$_],5,'true',my %attributes);
}
It prints to the intranet with the scroll lisyt but it is not printing the
actual H strings. Instead it is printing the array structure lie so:
ARRAY(0x16bd90)5trueARRAY(0x16f974)5trueARRAY(0x16bcf4)5trueARRAY(0x16bd90)5trueARRAY(0x16f9)
I then tried to move the print ('htapes99',[$_],5,'true',my %attributes);
out of the foreach loop and just have [ $_ ] in the loop but I could not
get this to work.
Here is my entire code:
(See attached file: ASM_monitor.pl.bak.test)
Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
ASM_monitor.pl.bak.test
Description: Binary data
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
