diff options
Diffstat (limited to 'httemplate/search/mailinglistmember.html')
-rw-r--r-- | httemplate/search/mailinglistmember.html | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/httemplate/search/mailinglistmember.html b/httemplate/search/mailinglistmember.html deleted file mode 100644 index ee395f4..0000000 --- a/httemplate/search/mailinglistmember.html +++ /dev/null @@ -1,57 +0,0 @@ -<% include('elements/search.html', - 'title' => $title, - 'name_singular' => 'member', - 'query' => $query, - 'count_query' => $count_query, - 'header' => [ 'Email address' ], - 'fields' => [ $email_sub, ], #just this one for now - 'html_init' => $html_init, - ) -%> -<%init> - -#XXX ACL: -#make sure the mailing list is attached to a customer service i can see/view - -$cgi->param('listnum') =~ /^(\d+)$/ or die 'illegal listnum'; -my $listnum = $1; - -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 }, -}; - -my $count_query = "SELECT COUNT(*) FROM mailinglistmember WHERE listnum = $listnum"; - -my $email_sub = sub { - my $member = shift; - my $r = $member->email; #just this one for now - my $a = qq[<A HREF="javascript:areyousure('$r', ]. $member->membernum. ')">'; - $r .= " (${a}remove</A>)"; - $r; -}; - -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?') ) - window.location.href="${p}misc/delete-mailinglistmember.html?" + membernum; - - } -</SCRIPT> -END - -</%init> |