Changeset 1818 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts
- Timestamp:
- 07/07/16 12:12:38 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Aliases.pm
r1817 r1818 73 73 set => sub { 74 74 my ($self, $data) = @_; 75 return $self->object->set_fields($self->iname, 76 $data 77 ? ref $data ? $data : [ $data ] 78 : undef 75 my $sql = $data 76 ? '{' . join(',', map { $_ =~ s/\\/\\\\/g; '"' .$_.'"' } @$data) . '}' 77 : undef; 78 $base->db->do( 79 q{UPDATE aliases SET forward = } 80 . $base->db->quote($sql) . q{ where name = } . 81 $base->db->quote($self->object->id) 79 82 ); 80 83 },
Note: See TracChangeset
for help on using the changeset viewer.