Hello Monks,
I'am trying to develop a database driver website that people will be able to order movies through it!
Well i am having trouble with the following code, i dont know how to make it work so ot be able to when the user picks a movie from the drop down menu then we will clikc the button pick next to it and then we will be able to choose another one for ie Movie 2 and so on until he hits the button Done. I want evry time the user presses the pick button the form index.pl to resubmit to itself but the prompt now will be the next movies for the user to pick. like this Movie 1 Pick resubmit Movie 2 Pick resubmit Movie 3 so that the visitor can pick as many movies as he likes until he pressed the Done button. Any ideas on how to proceed on that?
open(IN, '<movies.txt') or die $!;
   @tips = <IN>;
close(IN);

print start_form(-action=>'show.pl');
print table( {border=>1, -width=>'35%', -align=>'center', -style=>'bor
+der: ridge lime; color: yellow; font-size: 20', -background=>'../data
+/images/blue.jpg'},
      Tr( {-align=>'center'}, td( 'Movie X' ), td( popup_menu(-name=>'
+dvdX', -values=>[@tips] )), td( submit( 'Pick' ))),
      Tr( {-align=>'center'}, td( submit( 'Clear' )),    td( submit( '
+Done' )))), br(), br();

print table( {border=>1, -width=>'35%', -align=>'center', -style=>'bor
+der: ridge lime; color: yellow; font-size: 20', -background=>'../data
+/images/blue.jpg'},
      Tr( {-align=>'center'}, td( submit( 'Add' )),    td( submit( 'Sh
+ow' ))),
      Tr( {-align=>'center'}, td( submit( 'Modify' )), td( submit( 'De
+lete' ))));
print end_form(), br(), br();

[download]
Thank tou all!

In reply to form problem... by Nik

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.