in reply to Re: How to select many times from a drop down menu in the same form
in thread How to select many times from a drop down menu in the same form

Thanks a zillion shmem! This is EXACTLY what i wanted and thanks again for providing to me 3 different ways of approaching thsi problem

I will prefer the javascript way although having user to submit the form could be used even more easily as well.

In both ways the user will have to hit same buttons, yes?

Add button woudl ahve been used as submit button and same thing the request button right?Myabe thsi way sould be even more easy? I wont prefer the scrolling list method though because my list then gest huge and messes up table columns.
print header( -charset=>'utf-8' ); print start_html( -script => my $js, -style=>'/data/css/style.css', -title=>'Order Project!' );
Yes i did cut-n-paste firstly :-) cause iw as anxiosu to see if it works(it does!) but then i tried the baove code on the start of my page but in this way things dont get addeed in order list, which mean javascript aint workign properly but why? After all i do us ethe '-script'.
  • Comment on Re^2: How to select many times from a drop down menu in the same form
  • Download Code

Replies are listed 'Best First'.
Re^3: How to select many times from a drop down menu in the same form
by shmem (Chancellor) on May 06, 2007 at 10:26 UTC
    print header( -charset=>'utf-8' ); print start_html( -script => my $js, -style=>'/data/css/style.css', -title=>'Order Project!' );

    Wrong. You are setting up another lexical variable $js which is empty at this point.

    You want

    my $js = <<EOH; // JavaScript here EOH print header( -charset=>'utf-8' ); print start_html( -script => $js, -style=>'/data/css/style.css', -title=>'Order Project!' );

    update: Try

    td( popup_menu( -name => 'ordered_items', -multiple => 1, -id => 'ordered_items', -style => "width: 230px;" ) ),

    --shmem

    _($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                                  /\_¯/(q    /
    ----------------------------  \__(m.====·.(_("always off the crowd"))."·
    ");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}