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

fixing some typos. also the File/Storage bug. also fixing the changelogs.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-03 05:12:51 +00:00
parent 21188e7949
commit e4bf3c60b0
6 changed files with 24 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/SQL.pm
View file

@ -18,7 +18,6 @@ use DBI;
use Exporter;
use strict;
use Tie::IxHash;
use WebGUI::ErrorHandler;
use WebGUI::Id;
use WebGUI::Session;
use WebGUI::Utility;
@ -301,7 +300,8 @@ Returns an error code for the current handler.
=cut
sub errorCode {
return $self->dbh->err;
my $self = shift;
return $self->dbh->err;
}
@ -314,7 +314,8 @@ Returns a text error message for the current handler.
=cut
sub errorMessage {
return $self->dbh->errstr;
my $self = shift;
return $self->dbh->errstr;
}
@ -644,7 +645,7 @@ sub setRow {
my ($self, $table, $keyColumn, $data, $id) = @_;
if ($data->{$keyColumn} eq "new" || $id) {
$data->{$keyColumn} = $id || WebGUI::Id::generate();
$self->write("insert into $table ($keyColumn) values (".$self->quote($data->{$keyColumn}).")", $dbh);
$self->write("insert into $table ($keyColumn) values (".$self->quote($data->{$keyColumn}).")");
}
my (@pairs);
foreach my $key (keys %{$data}) {
@ -653,7 +654,7 @@ sub setRow {
}
}
if ($pairs[0] ne "") {
$self->write("update $table set ".join(", ", @pairs)." where ".$keyColumn."=".$self->quote($data->{$keyColumn}), $dbh);
$self->write("update $table set ".join(", ", @pairs)." where ".$keyColumn."=".$self->quote($data->{$keyColumn}));
}
return $data->{$keyColumn};
}