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;
}

##</code><code>##

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('http://www.someserver.com/some/path/thanks.html');
}