Changeset 1844 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts
- Timestamp:
- 10/20/16 12:48:39 (8 years ago)
- Location:
- trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Aliases.pm
r1821 r1844 74 74 set => sub { 75 75 my ($self, $data) = @_; 76 my $sql = $data 77 ? '{' . join(',', map { $_ =~ s/\\/\\\\/g; '"' .$_.'"' } @$data) . '}' 76 my @datas = $data 77 ? (ref $data 78 ? @$data 79 : ($data)) 80 : (); 81 my $sql = @datas 82 ? '{' . join(',', map { $_ =~ s/\\/\\\\/g; '"' .$_.'"' } @datas) . '}' 78 83 : undef; 79 84 $base->db->do( -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm
r1842 r1844 568 568 if ($data) { 569 569 if (my $f = $self->base->get_object('aliases', $self->object->id)) { 570 return $f->_set_c_fields(forward => $data); 570 return $f->_set_c_fields( 571 forward => $data, 572 comment => undef, 573 description => 'Forward for user ' . $self->object->id, 574 ); 571 575 } else { 572 576 if ($self->base->_create_c_object(
Note: See TracChangeset
for help on using the changeset viewer.