Select from drop down menu multipel times in the same form

Discussion in 'Perl Misc' started by Nikos, May 5, 2007.

  1. Nikos

    Nikos Guest

    #===============================================================================
    my @titlelist;
    open FILE, "<$ENV{'DOCUMENT_ROOT'}/data/vault/titlelist.txt" or die
    $!;
    @titlelist = <FILE>;
    close FILE;

    print br() x 5;

    print start_form( action=>'/cgi-bin/admin.pl' );
    print table( {class=>'user_form'},
    Tr( td( {width=>'55%'}, 'Select items' ),
    td( {width=>'35%'}, popup_menu( -name=>'title', -values=>
    \@titlelist )),
    td( {width=>'10%'}, submit('add'))),

    Tr( td( 'Soemthign to remark on order' ),
    td( {colspan=>2}, textarea( -name=>'remark', -rows=>6, -
    columns=>35 ))),

    Tr( td( 'ask for soemthing else if it snot listed on drop don
    menu' ),
    td( textfield( -name=>'request' )),
    td( submit('request'))),

    Tr( td( a( {href=>'/cgi-bin/show.pl?name=showbook'},
    font( {size=>3, color=>'yellow'}, 'Change Order' ))),
    td( {colspan=>2}, submit( 'Order!' )))
    );

    print hidden(-name=>'date', -value=>$date);
    print hidden(-name=>'host', -value=>$host);
    print end_form();
    print br() x 5;
    #===============================================================================

    In the above code when user hits the "Add" button or the "request"
    button i need it to get the user selection from frop down menu and
    store it.
    Its about selecting items to place and orer list, i want the user to
    select many items form the drop down menu. And also to write its own
    if he can t find somethign from the drop down menu and then hit
    "Want".

    How can i do it so the user hits those submits button so many times as
    is the amount of items he wants? Where do i have to submit the form
    to? to itself?

    ps1. I edited it and wrote all the greek words to english ones. Also
    corrected spelling errors.
    ps2. Asked in PM as well but didnt got an answer.
     
    Nikos, May 5, 2007
    #1
    1. Advertising

  2. Nikos

    Nikos Guest

    Nikos, May 5, 2007
    #2
    1. Advertising

  3. On 5 May 2007 08:34:32 -0700, Nikos <> wrote:

    >ps1. I edited it and wrote all the greek words to english ones. Also
    >corrected spelling errors.


    WELL DONE!

    >ps2. Asked in PM as well but didnt got an answer.


    WELL DONE! (Finally!)

    Since nobody here is guaranteed to know what "PM" is, you may want to
    write "PerlMonks", and/or -most importantly- include a link, e.g.:

    http://perlmonks.org/?node_id=613723

    Otherwise how is one supposed to know?!?

    BTW: you *did* get answers. Notwithstanding the fact that the traffic
    is limited both here and there during the weekends. Perhaps you didn't
    get them *soon*. But who does? Have patience!


    Michele
    --
    {$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
    (($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
    ..'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
    256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
     
    Michele Dondi, May 5, 2007
    #3
  4. Nikos

    Nikos Guest

    On May 5, 9:26 pm, Michele Dondi <> wrote:

    > BTW: you *did* get answers. Notwithstanding the fact that the traffic
    > is limited both here and there during the weekends. Perhaps you didn't
    > get them *soon*. But who does? Have patience!


    Thank you for allt he good words :)

    I will be patient then, its just that iam so excited trying to get
    this new order perl cgi script done that i cant wait for answers :)
     
    Nikos, May 5, 2007
    #4
  5. On 5 May 2007 11:37:35 -0700, Nikos <> wrote:

    >> BTW: you *did* get answers. Notwithstanding the fact that the traffic
    >> is limited both here and there during the weekends. Perhaps you didn't
    >> get them *soon*. But who does? Have patience!

    >
    >Thank you for allt he good words :)
    >
    >I will be patient then, its just that iam so excited trying to get


    Thank you for understanding rather than complaining. And sorry if I
    may have occasionally been overly harsh.

    >this new order perl cgi script done that i cant wait for answers :)


    New order? ;-)
    Well, good luck with your project anyway.


    Michele
    --
    {$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
    (($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
    ..'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
    256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
     
    Michele Dondi, May 5, 2007
    #5
  6. Nikos

    Nikos Guest

    On May 5, 10:23 pm, Michele Dondi <> wrote:

    > Thank you for understanding rather than complaining. And sorry if I
    > may have occasionally been overly harsh.


    My apologies too, for not been carefull enough before posting, you are
    an ok person.

    > >this new order perl cgi script done that i cant wait for answers :)

    > New order? ;-)
    > Well, good luck with your project anyway.;t


    Sounds like a dark mysterious world wide New Order Plan trying to take
    over the world, doesnt it?!

    Thanks :)
     
    Nikos, May 5, 2007
    #6
  7. Michele Dondi wrote:
    >> ps2. Asked in PM as well but didnt got an answer.

    >
    > WELL DONE! (Finally!)
    >
    > Since nobody here is guaranteed to know what "PM" is,


    It's _P_ersonal _M_ail instead of Usenet posting, what else.

    > you may want to write "PerlMonks",


    ohhhhh

    jue
     
    Jürgen Exner, May 7, 2007
    #7
  8. Jürgen Exner <> wrote:
    > Michele Dondi wrote:
    >>> ps2. Asked in PM as well but didnt got an answer.

    >>
    >> WELL DONE! (Finally!)
    >>
    >> Since nobody here is guaranteed to know what "PM" is,

    >
    > It's _P_ersonal _M_ail instead of Usenet posting, what else.



    I thought the OP meant that he had asked the question later than noon.


    --
    Tad McClellan SGML consulting
    Perl programming
    Fort Worth, Texas
     
    Tad McClellan, May 8, 2007
    #8
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. SirPoonga
    Replies:
    2
    Views:
    806
    Ben Strackany
    Jan 7, 2005
  2. Claus G
    Replies:
    3
    Views:
    333
    Mark Rae
    Nov 22, 2006
  3. weiwei
    Replies:
    0
    Views:
    1,052
    weiwei
    Jan 5, 2007
  4. Replies:
    3
    Views:
    315
  5. Krustov

    Form box menu - force the drop down menu

    Krustov, Dec 5, 2006, in forum: Javascript
    Replies:
    2
    Views:
    183
    Krustov
    Dec 5, 2006
Loading...

Share This Page