3137l1.orig100640 1061 330 3120 6601557366 11114 0ustar mlrljedit Add a client [! 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

[$ foreach $column colnames $] [$ if $column ne "id" $] [$ endif $] [$ endforeach $]
[+ $column +]

3137l2.orig100640 1061 330 12312 6601557523 11133 0ustar mlrljedit Client Editor [- 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 $] [$ if $fdat{"modify-0"} ne "" $] [- @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; -] [- $id = $sth->{"insertid"} -]

[+ $sth->errstr +]

[$ endif $] [$ foreach $clientid (grep {($_ =~ /^modify-\d+$/) && ($fdat{$_} eq "modify")} (sort keys %fdat)) $] [+ $clientid =~ m/(\d+)$/; $pairs = join ', ', map {"$_ = '" . $fdat{$_ . "-$1"} . "'"} grep (!/^id$/, @colnames); $sql = "UPDATE Clients SET $pairs WHERE id = $1"; +] [- $sth = $dbh->prepare($sql); -] [- $sth->execute; -]

[+ $sth->errstr +]

[$ endforeach $] [$ foreach $clientid (grep {($_ =~ /^modify-\d+$/) && ($fdat{$_} eq "delete")} (sort keys %fdat)) $] [+ $clientid =~ m/^modify-(\d+)$/; $sql = "DELETE FROM Clients WHERE id = $1" +]; [- $sth = $dbh->prepare($sql); -] [- $sth->execute; -]

[+ $sth->errstr +]

[$ endforeach $] [$ endif $]

Add/Modify Client Information

[$ foreach $column @colnames $] [$ if $column ne "id" $] [$ endif $] [$ endforeach $]

Add this new client

[+ $column +]
[- $sql = "SELECT $colnames FROM Clients"; -] [- $sth = $dbh->prepare ($sql) -]

[+ $sth->errstr +]

[- $sth->execute -]

[+ $sth->errstr +]

[$ while ($record = $sth->fetchrow_arrayref) $] [- $recordid = $record->[0]; -]

[- $fieldcounter = 0; -] [$ foreach $field @$record $] [$ if $colnames[$fieldcounter] ne "id" $] [$ endif $] [- $fieldcounter++; -] [$ endforeach $]

Do nothing Modify this client Delete this client

[+ $colnames[$fieldcounter] +]

[$ endwhile $]