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

Adding basic list header support.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-05-27 10:33:14 +02:00
parent 218ebbbad6
commit 573813f5ee
2 changed files with 27 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/AssetAspect/Subscriber.pm
View file

@ -105,6 +105,25 @@ sub getEditTabs {
return ( $self->next::method, [ 'subscription', 'Subscription', 9 ] );
}
#----------------------------------------------------------------------------
sub getListHeaders {
my $self = shift;
my $email = shift || return {};
my $site = $self->session->url->getSiteURL;
my $headers = {
'List-Unsubscribe' =>
'<' . $site . $self->getUrl( "func=processSubscription&action=unsubscribe&email=$email" ) . '>',
'List-Subscribe' =>
'<' . $site . $self->getUrl( "func=processSubscription&action=subscribe&email=$email" ) . '>',
'List-Archives' =>
'<' . $site . $self->getUrl . '>',
};
return $headers;
}
#----------------------------------------------------------------------------
sub canSubscribe {
my $self = shift;