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

ODBC dsns need long lengths like Oracle

Browse source
This commit is contained in:
Colin Kuskie 2007-03-01 23:27:24 +00:00
parent 83eb765fef
commit fcaf782f5b
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/AssetClipboard.pm
View file

@ -50,8 +50,8 @@ sub cut {
my $self = shift; my $self = shift;
return undef if ($self->getId eq $self->session->setting->get("defaultPage") || $self->getId eq $self->session->setting->get("notFoundPage")); return undef if ($self->getId eq $self->session->setting->get("defaultPage") || $self->getId eq $self->session->setting->get("notFoundPage"));
$self->session->db->beginTransaction; $self->session->db->beginTransaction;
$self->session->db->write("update asset set state='clipboard-limbo' where lineage like ".$self->session->db->quote($self->get("lineage").'%')." and state='published'"); $self->session->db->write("update asset set state='clipboard-limbo' where lineage like ? and state='published'",[$self->get("lineage").'%']);
$self->session->db->write("update asset set state='clipboard', stateChangedBy=".$self->session->db->quote($self->session->user->userId).", stateChanged=".$self->session->datetime->time()." where assetId=".$self->session->db->quote($self->getId)); $self->session->db->write("update asset set state='clipboard', stateChangedBy=?, stateChanged=? where assetId=?", [$self->session->user->userId, $self->session->datetime->time(), $self->getId]);
$self->session->db->commit; $self->session->db->commit;
$self->updateHistory("cut"); $self->updateHistory("cut");
$self->{_properties}{state} = "clipboard"; $self->{_properties}{state} = "clipboard";

2
lib/WebGUI/SQL.pm
View file

@ -322,7 +322,7 @@ sub connect {
$session->errorHandler->fatal("Couldn't connect to database."); $session->errorHandler->fatal("Couldn't connect to database.");
} }
if ( $dsn =~ /Oracle/ ) { # Set Oracle specific attributes if ( $dsn =~ /Oracle/ || $dsn =~ /ODBC/ ) { # Set specific attributes for long Oracle and ODBC DSNs
$dbh->{LongReadLen} = 512 * 1024; $dbh->{LongReadLen} = 512 * 1024;
$dbh->{LongTruncOk} = 1; $dbh->{LongTruncOk} = 1;
} }