[Rt-commit] r19587 - rt/3.8/branches/notify_group/lib/RT/Action
ruz at bestpractical.com
ruz at bestpractical.com
Thu May 7 20:34:37 EDT 2009
Author: ruz
Date: Thu May 7 20:34:37 2009
New Revision: 19587
Modified:
rt/3.8/branches/notify_group/lib/RT/Action/NotifyGroup.pm
Log:
* obsolete old storable format in NotifyGroup action
Modified: rt/3.8/branches/notify_group/lib/RT/Action/NotifyGroup.pm
==============================================================================
--- rt/3.8/branches/notify_group/lib/RT/Action/NotifyGroup.pm (original)
+++ rt/3.8/branches/notify_group/lib/RT/Action/NotifyGroup.pm Thu May 7 20:34:37 2009
@@ -80,12 +80,6 @@
my $self = shift;
my $arg = $self->Argument;
-
- my $old_arg = eval { Storable::thaw( $arg ) };
- unless( $@ ) {
- $arg = $self->__ConvertOldArg( $old_arg );
- }
-
foreach( $self->__SplitArg( $arg ) ) {
$self->_HandleArgument( $_ );
}
@@ -149,31 +143,7 @@
}
sub __SplitArg {
- return split /[^0-9]+/, $_[1];
-}
-
-sub __ConvertOldArg {
- my $self = shift;
- my $arg = shift;
- my @res;
- foreach my $r ( @{ $arg } ) {
- my $obj;
- next unless $r->{'Type'};
- if( lc $r->{'Type'} eq 'user' ) {
- $obj = RT::User->new( $RT::SystemUser );
- } elsif ( lc $r->{'Type'} eq 'user' ) {
- $obj = RT::Group->new( $RT::SystemUser );
- } else {
- next;
- }
- $obj->Load( $r->{'Instance'} );
- my $id = $obj->id;
- next unless( $id );
-
- push @res, $id;
- }
-
- return join ';', @res;
+ return grep length, map {s/^\s+//; s/\s+$//; $_} split /,/, $_[1];
}
sub __PushUserAddress {
More information about the Rt-commit
mailing list