ispman/lib/CustomerMan MailGroups.pm,1.4,1.5

Update of /cvsroot/ispman/ispman/lib/CustomerMan
In directory sc8-pr-cvs1:/tmp/cvs-serv22616

Modified Files:
	MailGroups.pm 
Log Message:
fixing bug where adding a mailing list with multiple recipients only creates a list with one recipient

Index: MailGroups.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/CustomerMan/MailGroups.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- MailGroups.pm	28 Apr 2003 17:11:19 -0000	1.4
+++ MailGroups.pm	14 Jan 2004 02:20:26 -0000	1.5
@@ -23,7 +23,7 @@
    my $r=shift;
    my $dn=$r->param("dn");
    $self->updateEntryWithData($dn, {
-      'mailForwardingAddress' => $self->as_arrayref($r->param("maildrop"))
+      'mailForwardingAddress' => $self->as_arrayref($r->param("mailForwardingAddress"))
       });
    $r->param("mode", "advanceItems");
    $r->param("section", "MailingLists");
@@ -36,7 +36,12 @@
    my $self=shift;
    my $r=shift;
    $r->param("ispmanDomain", $self->{'domain'});
-   $self->addMailGroup($r);
+   
+   # Break the list into a scalar where each email is separated by space char
+   my $addresses=$self->as_arrayref($r->param('mailForwardingAddress'));
+   $r->param('mailForwardingAddress', (join ' ' , @$addresses));
+   
+	$self->addMailGroup($r);
 
 
    $r->param("mode", "advanceItems");




-------------------------------------------------------
This SF.net email is sponsored by: Perforce Software.
Perforce is the Fast Software Configuration Management System offering
advanced branching capabilities and atomic changes on 50+ platforms.
Free Eval! http://www.perforce.com/perforce/loadprog.html