[freeside-commits] freeside/httemplate/edit part_svc.cgi, 1.67, 1.68 svc_mailinglist.cgi, 1.1, 1.2 mailinglistmember.html, 1.1, 1.2

[Ivan,,,]

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

Modified Files:
	part_svc.cgi 
Added Files:
	svc_mailinglist.cgi mailinglistmember.html 
Log Message:
adding svc_mailinglist for communigate "groups" (mailing lists), RT#7514

--- NEW FILE: mailinglistmember.html ---
<% include( 'elements/edit.html',
              'name_singular' => 'member',
              'table'         => 'mailinglistmember',
              'popup'         => 1,
              'fields'        => [
                { field=>'listnum', type=>'hidden', },
                { field=>'svcnum', type=>'hidden', }, #not yet
                { field=>'contactemailnum', type=>'hidden', }, #not yet
                { field=>'email', type=>'text', },
              ],
              'labels' => { 'membernum' => 'Member',
                            'email'     => 'Email address',
                          },
              'new_callback' => $new_callback,
          )
%>
<%init>

my $new_callback = sub {
  #my( $cgi, $object, $fields_listref, $opt_hashref ) = @_;
  my( $cgi, $object ) = @_;
  $object->listnum( $cgi->param('listnum') );
};

</%init>

Index: part_svc.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/part_svc.cgi,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -w -d -r1.67 -r1.68
--- part_svc.cgi	1 Mar 2010 19:29:18 -0000	1.67
+++ part_svc.cgi	23 Mar 2010 03:48:31 -0000	1.68
@@ -15,7 +15,8 @@
 Service definitions are the templates for items you offer to your customers.
 <UL><LI>svc_acct - Accounts - anything with a username (Mailboxes, PPP accounts, shell accounts, RADIUS entries for broadband, etc.)
     <LI>svc_domain - Domains
-    <LI>svc_forward - mail forwarding
+    <LI>svc_forward - Mail forwarding
+    <LI>svc_mailinglist - Mailing list
     <LI>svc_www - Virtual domain website
     <LI>svc_broadband - Broadband/High-speed Internet service (always-on)
     <LI>svc_phone - Customer phone numbers

--- NEW FILE: svc_mailinglist.cgi ---
<% include( 'elements/svc_Common.html',
              'table'  => 'svc_mailinglist',
              'fields' => \@fields,
          )
%>
<%init>

die "access denied"
  unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?

my @fields = (
  'username',
  { field=>'domsvc',           type=>'select-svc-domain',
    #label => 'List address domain',
  },
  { field=>'listnum',          type=>'hidden', },
  { field=>'listname',         type=>'text', },
  { field=>'reply_to',         type=>'checkbox', value=>'Y' },
  { field=>'remove_from',      type=>'checkbox', value=>'Y' },
  { field=>'reject_auto',      type=>'checkbox', value=>'Y' },
  { field=>'remove_to_and_cc', type=>'checkbox', value=>'Y' },

);

</%init>