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

improving setRow

Browse source
This commit is contained in:
Graham Knop 2010-05-11 20:27:24 -05:00
parent d75fa54231
commit 7b9e230409
1 changed files with 17 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

30
lib/WebGUI/SQL.pm
View file

@ -133,7 +133,7 @@ sub connect {
}
$params = { @params };
}
$params->{RaiseError} = 1;
$params->{RaiseError} = 0;
$params->{PrintError} = 0;
$params->{AutoCommit} = 1;
$params->{ShowErrorStatement} = 1;
@ -157,6 +157,7 @@ sub connect {
package WebGUI::SQL::db;
use Try::Tiny;
our @ISA = qw(DBI::db);
#-------------------------------------------------------------------
@ -879,21 +880,24 @@ sub setRow {
if ($data->{$keyColumn} eq 'new' || $id) {
$id ||= $self->session->id->generate;
$data->{$keyColumn} = $id;
$self->do("REPLACE INTO $table ($key) VALUES (?)", {}, $id);
}
else {
$id = $data->{$keyColumn};
}
my @fields = map { $self->quote_identifier($_) . '=?' } keys %$data;
my @data = values %$data;
if (@fields) {
$self->do(
"UPDATE $table SET " . join(", ", @fields)
. " WHERE $key = ?",
{},
@data,
$id,
);
try {
my $fields = join ', ', map { $self->quote_identifier($_) } keys %$data;
my $values = join ', ', ('?') x values %$data;
$self->do("INSERT INTO $table ($fields) VALUES ($values)", {}, values %$data);
}
catch {
my %data = %$data;
delete $data{$keyColumn};
my $fields = join ', ', map { $self->quote_identifier($_). '=?' } keys %data;
$self->do("UPDATE $table SET $fields WHERE $key = ?", {}, values %data, $id);
};
return $id;
}