oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

still more fixes.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-18 07:05:19 +00:00
parent 8f12dae29c
commit 6f112057bb
5 changed files with 35 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/SQL.pm
View file

@ -653,7 +653,7 @@ sub setRow {
my ($self, $table, $keyColumn, $data, $id) = @_;
if ($data->{$keyColumn} eq "new" || $id) {
$data->{$keyColumn} = $id || $self->session->id->generate();
$self->write("insert into $table ($keyColumn) values (".$self->quote($data->{$keyColumn}).")");
$self->write("replace into $table ($keyColumn) values (".$self->quote($data->{$keyColumn}).")");
}
my (@pairs);
foreach my $key (keys %{$data}) {
@ -707,7 +707,7 @@ An SQL insert or update.
sub write {
my $self = shift;
my $sql = shift;
$self->session->errorHandler->debug("query: ".$sql);
$self->session->errorHandler->query($sql);
$self->dbh->do($sql) or $self->session->errorHandler->fatal("Couldn't write to the database: ".$sql." : ". $self->dbh->errstr);
}