multi-select for agent on RADIUS usage report, RT#73050

[freeside.git] / httemplate / search / mailinglistmember.html

diff --git a/httemplate/search/mailinglistmember.html b/httemplate/search/mailinglistmember.html
index c748c3a..a678d45 100644 (file)
--- a/httemplate/search/mailinglistmember.html
+++ b/httemplate/search/mailinglistmember.html
@@ -1,4 +1,4 @@
-<% include('elements/search.html',
+<& elements/search.html,
              'title'         => $title,
              'name_singular' => 'member',
              'query'         => $query,
@@ -6,8 +6,7 @@
              'header'        => [ 'Email address' ],
              'fields'        => [ $email_sub, ], #just this one for now
              'html_init'     => $html_init,
-          )
-%>
+&>
 <%init>
 
 #XXX ACL:
@@ -20,6 +19,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 +36,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?') )