Changeset 450

Timestamp:

09/10/09 02:07:50 (15 years ago)

Author:

nanardon

Message:

At least, even this is not the want behavior, fix sql query avoiding rollback due to bad query

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

@@ -458 +458 @@
                 $val = shift(@filter);
             }
+            $val ||= '';
             push(@sqlintersec,
                 sprintf(q{select okey from %s where attr=? %s},
@@ -474 +475 @@
         my $sth = $base->db->prepare(
             sprintf(q{
-                select name from %s where ikey in (
+                select name from %s
                 %s
-                )
                 },
                 $base->db->quote_identifier($class->object_table),
-                join("\n intersect\n", @sqlintersec),
+                @sqlintersec ? 'where ikey in (' . join("\n intersect\n",
+                    @sqlintersec) . ')' : '',
             )
         );