From 9a778387bc4bfc97d28b25a9c123700fc6c15062 Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 23 Mar 2010 09:13:32 +0000 Subject: export svc_mailinglist to CGP groups, RT#7514 --- httemplate/elements/header.html | 4 ++-- httemplate/search/mailinglistmember.html | 11 ++++++++++- 2 files changed, 12 insertions(+), 3 deletions(-) (limited to 'httemplate') diff --git a/httemplate/elements/header.html b/httemplate/elements/header.html index c9e8f5756..8a9cb8526 100644 --- a/httemplate/elements/header.html +++ b/httemplate/elements/header.html @@ -24,7 +24,7 @@ Example: - <% $title %> + <% $title |h %> @@ -197,7 +197,7 @@ Example: - <% $title %> + <% $title |h %> % unless ( $nobr ) { 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";