X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Fmailinglistmember.html;h=ee395f416755f55d5ba08ca28111ac2b57286aa5;hb=b79a8cb932946c849328a3c117c35821d9d21e66;hp=c748c3ac8e57a5c3cb5a661f48be558a1e4f84cd;hpb=7167be4668e6187ac55126791ca9b74cd5fb27e8;p=freeside.git
diff --git a/httemplate/search/mailinglistmember.html b/httemplate/search/mailinglistmember.html
index c748c3ac8..ee395f416 100644
--- a/httemplate/search/mailinglistmember.html
+++ b/httemplate/search/mailinglistmember.html
@@ -20,6 +20,8 @@ my $mailinglist = qsearchs('mailinglist', { 'listnum' => $listnum })
or die "unknown listnum $listnum";
my $title = $mailinglist->listname. ' mailing list';
+my $svc_mailinglist = $mailinglist->svc_mailinglist;
+
my $query = {
'table' => 'mailinglistmember',
'hashref' => { 'listnum' => $listnum },
@@ -35,7 +37,14 @@ my $email_sub = sub {
$r;
};
-my $html_init = <<"END";
+my $html_init = '';
+if ( $svc_mailinglist ) {
+ my $svcnum = $svc_mailinglist->svcnum;
+ my $label = encode_entities($svc_mailinglist->label);
+ $html_init .= qq[View customer mailing list: $label
];
+}
+
+$html_init .= <<"END";