[freeside-commits] freeside/httemplate/search mailinglistmember.html, 1.2, 1.3

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/httemplate/search
In directory wavetail.420.am:/tmp/cvs-serv29313/httemplate/search

Modified Files:
	mailinglistmember.html 
Log Message:
export svc_mailinglist to CGP groups, RT#7514

Index: mailinglistmember.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/search/mailinglistmember.html,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -d -r1.2 -r1.3
--- mailinglistmember.html	23 Mar 2010 03:48:31 -0000	1.2
+++ mailinglistmember.html	23 Mar 2010 09:13:32 -0000	1.3
@@ -20,6 +20,8 @@
   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 @@
   $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?') )