UnitedKnowledge/webgui_newsletter
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixup Subscribe command prototype.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-10-13 17:57:02 +02:00
parent 831f3ef17a
commit 72f1e99bb8
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/MailCommand/Subscribe.pm
View file

@ -10,15 +10,16 @@ use base 'WebGUI::MailCommand';
#----------------------------------------------------------------------------- #-----------------------------------------------------------------------------
sub process { sub process {
my $self = shift; my $self = shift;
my $listName= shift; my $listName = shift;
my $fromAddress = shift;
my $session = $self->session; my $session = $self->session;
my $log = $session->log; 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; die "Invalid list name [$listName]" unless $asset;
$asset->subscribeThroughEmail( $fromAddress ); $asset->subscribeAnonymous( $fromAddress );
return; return;
} }