Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

How do I use a database and handle checkboxes?

by scratch (Sexton)
on Aug 22, 2000 at 03:02 UTC ( #28936=perlquestion: print w/replies, xml ) Need Help??

scratch has asked for the wisdom of the Perl Monks concerning the following question:

I'm using to collect some info. Right now I'm just writing the values out to a file with the save_parameters function, but I'd like to write the data to a database. I think I can do this with the DBI module - and I'll look into that more - but I've got sort of a general question: How can I take a checkbox_group variable or question from the form and write its values (stored in an array in perl) into a database? Do I somehow need to pull out each of the array elements into scalar vars before I try writing data out to a database? I'm getting sort of stumped thinking about how to do this. Thanks a lot for any suggestions!

Originally posted as a Categorized Question.

  • Comment on How do I use a database and handle checkboxes?

Replies are listed 'Best First'.
Re: How do I use a database and handle checkboxes?
by Ovid (Cardinal) on Aug 22, 2000 at 06:51 UTC
    There are many ways of addressing this issue. The following is not the best, but it works. I have a form where teachers can enter lesson plans and a series of check boxes represent the appropriate grade levels, K through 12. The checkboxes are named GradeK, Grade1, ... Grade12.

    When this data is sent via CGI, the parameter is sent to the script as GradeK=on (or whatever value you set the checkbox at). No checkbox parameter is sent if it's not checked. Therefore, I use the following sub to pull the data:

    sub getGrades { my $grades; my @keys = $template->param; # Look for the grade parameters and add each one to $grades foreach (@keys) { $grades .= $1 . ',' if /^Grade([1-9]|1[0-2]|K)$/; } $grades =~ s/,$//; # remove trailing comma return $grades; }
    This sub is called from the following sub which uses DBI to write the data to a MySQL database:
    sub storeData { my $table = shift; my $grades = getGrades(); my $standards = getStandards(); use DBI; my $dbh = DBI->connect("DBI:mysql:$database",$user,$password); $dbh->{RaiseError} = 1; # save template information to database my $sql = 'INSERT INTO ' . $table . '(title, lesson_summary, grades, standards) VALUES (?, ?, ?, ?)'; my $sth = $dbh->prepare($sql); $sth->execute( $template->param('Title'), $template->param('Summary'), $grades, $standards ); $template->end_html; $sth->finish; $dbh->disconnect; print $template->redirect(' +nks.html'); }
    This should give you a good start on how to approach this (Grades is defined as varchar(28), by the way).


Re: How do I use a database and handle checkboxes?
by princepawn (Parson) on Aug 22, 2000 at 23:12 UTC
    If you use DBIx::Recordset which is built on top of DBI, you can commit form data to database in one line of DBIx::Recordset:
    @names = $q->param(); map { $fdat{$_}=$q->param($_} } @names; DBIx::Recordset->Insert({%connect_dsn,%fdat});

    For more information on DBIx::Recordset, visit:

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://28936]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2023-03-23 23:04 GMT
Find Nodes?
    Voting Booth?
    Which type of climate do you prefer to live in?

    Results (60 votes). Check out past polls.