[Bast-commits] r3302 - branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI/Oracle

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-05-11 13:38:18 +0100 (Fri, 11 May 2007)
New Revision: 3302

Modified:
   branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI/Oracle/WhereJoins.pm
Log:
fixup for Oracle WHERE join stuff from abraxxa

Modified: branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI/Oracle/WhereJoins.pm
===================================================================
--- branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI/Oracle/WhereJoins.pm	2007-05-11 11:28:38 UTC (rev 3301)
+++ branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI/Oracle/WhereJoins.pm	2007-05-11 12:38:18 UTC (rev 3302)
@@ -58,10 +58,10 @@
         die "Can't handle full outer joins in Oracle 8 yet!\n"
           if $to_jt->{-join_type} =~ /full/i;
 
-        $left_join  = q{(+)} if $to_jt->{-join_type} =~ /right/i
+        $left_join  = q{(+)} if $to_jt->{-join_type} =~ /left/i
                              && $to_jt->{-join_type} !~ /inner/i;
 
-        $right_join = q{(+)} if $to_jt->{-join_type} =~ /left/i
+        $right_join = q{(+)} if $to_jt->{-join_type} =~ /right/i
                              && $to_jt->{-join_type} !~ /inner/i;
       }