my $arrayref = $dbh->selectcol_arrayref(qq|
                SELECT monitor_contact WHERE mc_id=?|,
                    undef, $account_id);

     print $cgi->scrolling_list(-name=>"contacts",
                                -values=>$arrayref,
                                -multiple => 1);


On Thu, 30 May 2002, Zachary Buckholz wrote:

> Does anyone have an example they can share where they are doing something
> similar?
> 
> Thanks
> zack
> 
> >
> >
> > I have been trying to generate a page based on the code fragment below.
> But
> > when the page appears I get the scrolling_list on the page, but the value
> > inside the list is \@contacts.
> >
> > I must be doing something wrong because the docs say I can pass an array
> > reference as I am doing.
> >
> > Can anyone point out my mistake?
> >
> >       my $select_contacts_query = "SELECT contact_email
> >                                                     FROM monitor_contact
> >                                                     WHERE mc_id =
> > $account_id";
> >         my $sth = $dbh->prepare($select_contacts_query);
> >         $sth->execute();
> >         my $contacts = $sth->fetchall_arrayref();
> >
> >         my $contact_list = $q->scrolling_list(-name=>'contacts',
> >                                                 -values=>'\@contacts',
> >                                                 -multiple=>'true');
> >
> >         $tmpl_obj->param(CONTACTS => $contact_list);
> >
> >         $tmpl_obj->param(ADD_URL=>1);
> >
> >         return $tmpl_obj->output;
> >
> > Thanks
> >
> > Zack
> >
> > ---------------------------------------------------------------------
> > Web Archive:  http://www.mail-archive.com/cgiapp@lists.vm.com/
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> >
> >
> >
> >
> >
> > ---------------------------------------------------------------------
> > Web Archive:  http://www.mail-archive.com/cgiapp@lists.vm.com/
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> >
> >
> 
> ---------------------------------------------------------------------
> Web Archive:  http://www.mail-archive.com/cgiapp@lists.vm.com/
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 
> 


---------------------------------------------------------------------
Web Archive:  http://www.mail-archive.com/cgiapp@lists.vm.com/
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to