diff options
| author | ivan <ivan> | 2010-03-23 09:13:32 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2010-03-23 09:13:32 +0000 |
| commit | 9a778387bc4bfc97d28b25a9c123700fc6c15062 (patch) | |
| tree | 8624e3de83e611ae2424633ae7973fc29f171aff /httemplate/search | |
| parent | f47e74271866786bb10f37d99383f1fb4ea0e349 (diff) | |
export svc_mailinglist to CGP groups, RT#7514
Diffstat (limited to 'httemplate/search')
| -rw-r--r-- | httemplate/search/mailinglistmember.html | 11 |
1 files changed, 10 insertions, 1 deletions
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[<A HREF="${p}/view/svc_mailinglist.cgi?$svcnum">View customer mailing list: $label</A><BR><BR>]; +} + +$html_init .= <<"END"; <SCRIPT TYPE="text/javascript"> function areyousure(email,membernum) { if ( confirm('Are you sure you want to remove ' + email + ' from this mailing list?') ) |