diff --git a/lib/WebGUI/MailCommand/Subscribe.pm b/lib/WebGUI/MailCommand/Subscribe.pm index c4057db..2244b1b 100644 --- a/lib/WebGUI/MailCommand/Subscribe.pm +++ b/lib/WebGUI/MailCommand/Subscribe.pm @@ -9,16 +9,17 @@ use base 'WebGUI::MailCommand'; #----------------------------------------------------------------------------- sub process { - my $self = shift; - my $listName= shift; - my $session = $self->session; - my $log = $session->log; + my $self = shift; + my $listName = shift; + my $fromAddress = shift; + my $session = $self->session; + my $log = $session->log; - my $asset = WebGUI::AssetAspect::Subscriber::findAssetByListName( $session, $listName ); + my $asset = WebGUI::AssetAspect::Subscriber->getAssetByListName( $session, $listName ); die "Invalid list name [$listName]" unless $asset; - $asset->subscribeThroughEmail( $fromAddress ); + $asset->subscribeAnonymous( $fromAddress ); return; }