/[notice-sender]/trunk/Nos.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/Nos.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 56 by dpavlin, Tue Jun 21 09:14:54 2005 UTC revision 58 by dpavlin, Tue Jun 21 09:41:43 2005 UTC
# Line 696  sub NewList { Line 696  sub NewList {
696   $member_id = AddMemberToList(   $member_id = AddMemberToList(
697          list => 'My list',          list => 'My list',
698          email => 'e-mail@example.com',          email => 'e-mail@example.com',
699          name => 'Full Name'          name => 'Full Name',
700            ext_id => 42,
701   );   );
702    
703  =cut  =cut
# Line 706  sub AddMemberToList { Line 707  sub AddMemberToList {
707    
708          if ($_[0] !~ m/^HASH/) {          if ($_[0] !~ m/^HASH/) {
709                  return $nos->add_member_to_list(                  return $nos->add_member_to_list(
710                          list => $_[0], email => $_[1], name => $_[2],                          list => $_[0], email => $_[1], name => $_[2], ext_id => $_[4],
711                  );                  );
712          } else {          } else {
713                  return $nos->add_member_to_list( %{ shift @_ } );                  return $nos->add_member_to_list( %{ shift @_ } );

Legend:
Removed from v.56  
changed lines
  Added in v.58

  ViewVC Help
Powered by ViewVC 1.1.26