From 5a1e3e106a2a8ed738c1b39bb6e6445e9993088e Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 23 Mar 2010 09:13:33 +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 22e872eca..8da91ef49 100644 --- a/httemplate/elements/header.html +++ b/httemplate/elements/header.html @@ -24,7 +24,7 @@ Example: - <% $title %> + <% $title |h %> @@ -293,7 +293,7 @@ input.fstext { - <% $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";