Changeset 812 for LATMOS-Accounts
- Timestamp:
- 02/25/10 18:28:14 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Mail/Aliases.pm
r811 r812 33 33 my ($self, $field) = @_; 34 34 $field eq 'forward' and do { 35 warn $self->base->{aliases}{$self->id};36 35 my @forw = split(',', $self->base->{aliases}{$self->id}); 37 36 return scalar(@forw) > 1 … … 44 43 sub set_fields { 45 44 my ($self, %data) = @_; 46 warn join(',' , keys %data);47 45 if ($data{forward}) { 48 warn $data{forward};49 46 $self->base->{aliases}{$self->id} = ref $data{forward} 50 47 ? join(',', @{$data{forward}})
Note: See TracChangeset
for help on using the changeset viewer.