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;
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->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', 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-limbo' where lineage like ? and state='published'",[$self->get("lineage").'%']);
$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->updateHistory("cut");
$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.");
}
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->{LongTruncOk} = 1;
}