Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: How can I allow the user to enter multiple rows of data?

by Russ (Deacon)
on Aug 06, 2000 at 23:44 UTC ( [id://26445]=note: print w/replies, xml ) Need Help??


in reply to How can I allow the user to enter multiple rows of data?

Yes, it would.

In the "output" side of your web script: 

# Give each row a unique value (1, 2, 3...)
for (1..10){
  # Name each field, adding the unique value in $_ (A1, B1, C1...)
  print qq{
    <tr>
      <td><input type="text" name="A$_"></td>
      <td><input type="text" name="B$_"></td>
      <td><input type="text" name="C$_"></td>
      <td><input type="text" name="D$_"></td>
    </tr>
  };
}

[download]
In the "processing" side: 
for (1..10){
  my ($A, $B, $C, $D) = 
     (CGI::param("A$_"), CGI::param("B$_"), CGI::param("C$_"), CGI::pa
+ram("D$_"));
  # This line confirms that the user entered something in at least one
+ field
  next unless grep {defined $_} ($A, $B, $C, $D);

  # Now that we know we got user input, do an insert into the database
}

[download]
This is not the most efficient way to do things, but I'm trying to demonstrate the technique, not give cut-and-paste-ready code.

Good luck.

Russ

Replies are listed 'Best First'.
RE: Answer: How can I allow the user to enter multiple rows of data?
by eak (Monk) on Aug 07, 2000 at 20:04 UTC
    I thought I would offer a little more cleaned up version. Cuz I have had to do this before. 
      for (1..10){
    # using one var and letting CGI handle it
    print qq{
      <tr>
        <td><input type="text" name="stuff"></td>
      </tr>
    };
  }

# In your script that receives the POST 
use CGI;
my $cgi = new CGI;

my @stuff = $cgi->param('stuff');

foreach my $thing (@stuff){

  "INSERT INTO STUFF_HOLDER VALUES('$thing')";
}

    [download]
    BTW. The only other way I know how to INSERT more than one row into a table with a single SQL statement is by complimenting the INSERT with a SELECT. For example: INSERT INTO new_table SELECT * FROM old_table
[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://26445]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others imbibing at the Monastery: (4)
As of 2024-04-20 02:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found