[! use Apache::DBI;
$dbh = DBI->connect("DBI:mysql:test:localhost");
colnames = qw(id name address1 address2 city
state country zip contact_name
contact_phone1 contact_phone2
contact_fax initial_contact_date
dollars_per_hour);
$colnames = join ', ', colnames;
!]
[$ if scalar keys %fdat > 0 $]
[- insert_colnames = grep !/^id$/, colnames; -]
[- $insert_colnames = join ', ',
insert_colnames; -]
[- $values = join '", "', map {$fdat{$_ .
"-0"}} insert_colnames -]
[+ $sql = "INSERT INTO Clients
($insert_colnames)
VALUES (\"$values\")"; +]
[- $sth = $dbh->prepare($sql); -]
[- $sth->execute; -]
[+ $sth->errstr +]
[$ endif $]
Add/Modify Client Information