Changeset 812

Timestamp:

02/25/10 18:28:14 (14 years ago)

Author:

nanardon

Message:

• revert: kill debug code

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Mail/Aliases.pm (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Mail/Aliases.pm

@@ -33 +33 @@
     my ($self, $field) = @_;
     $field eq 'forward' and do {
-        warn $self->base->{aliases}{$self->id};
         my @forw = split(',', $self->base->{aliases}{$self->id});
         return scalar(@forw) > 1
@@ -44 +43 @@
 sub set_fields {
     my ($self, %data) = @_;
-    warn join(',' , keys %data);
     if ($data{forward}) {
-        warn $data{forward};
         $self->base->{aliases}{$self->id} = ref $data{forward}
             ? join(',', @{$data{forward}})