Changeset 1818

Timestamp:

07/07/16 12:12:38 (8 years ago)

Author:

nanardon

Message:

Woraround DBI bug about quoting array

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Aliases.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Aliases.pm

@@ -73 +73 @@
                 set => sub {
                     my ($self, $data) = @_;
-                    return $self->object->set_fields($self->iname, 
-                        $data
-                        ? ref $data ? $data : [ $data ]
-                        : undef
+                    my $sql = $data
+                        ? '{' . join(',', map { $_ =~ s/\\/\\\\/g; '"' .$_.'"' } @$data) . '}'
+                        : undef;
+                    $base->db->do(
+                        q{UPDATE aliases SET forward = }
+                        . $base->db->quote($sql) . q{ where name = } .
+                        $base->db->quote($self->object->id)
                     );
                 },