/[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 60 by dpavlin, Tue Jun 21 21:24:10 2005 UTC revision 62 by dpavlin, Wed Jun 22 12:31:45 2005 UTC
# Line 343  sub delete_member_from_list { Line 343  sub delete_member_from_list {
343          my $this_user = $user->search( email => $args->{'email'} )->first || croak "can't find user: ".$args->{'email'};          my $this_user = $user->search( email => $args->{'email'} )->first || croak "can't find user: ".$args->{'email'};
344          my $this_list = $list->search( name => $args->{'list'} )->first || croak "can't find list: ".$args->{'list'};          my $this_list = $list->search( name => $args->{'list'} )->first || croak "can't find list: ".$args->{'list'};
345    
346          my $this_user_list = $user_list->search_where( list_id => $this_list->id, user_id => $this_list->id )->first || return;          my $this_user_list = $user_list->search_where( list_id => $this_list->id, user_id => $this_user->id )->first || return;
347    
348          $this_user_list->delete || croak "can't delete user from list\n";          $this_user_list->delete || croak "can't delete user from list\n";
349    
# Line 801  sub AddMemberToList { Line 801  sub AddMemberToList {
801    
802  Returns array of hashes with user informations, see C<list_members>.  Returns array of hashes with user informations, see C<list_members>.
803    
804    Returning arrays from SOAP calls is somewhat fuzzy (at least to me). It
805    seems that SOAP::Lite client thinks that it has array with one element which
806    is array of hashes with data.
807    
808  =cut  =cut
809    
810  sub ListMembers {  sub ListMembers {
# Line 814  sub ListMembers { Line 818  sub ListMembers {
818                  $list_name = $_[0]->{'list'};                  $list_name = $_[0]->{'list'};
819          }          }
820    
821          return $nos->list_members( list => $list_name );          return [ $nos->list_members( list => $list_name ) ];
822    }
823    
824    
825    =head2 DeleteMemberFromList
826    
827     $member_id = DeleteMemberFromList(
828            list => 'My list',
829            email => 'e-mail@example.com',
830     );
831    
832    =cut
833    
834    sub DeleteMemberFromList {
835            my $self = shift;
836    
837            if ($_[0] !~ m/^HASH/) {
838                    return $nos->delete_member_from_list(
839                            list => $_[0], email => $_[1],
840                    );
841            } else {
842                    return $nos->delete_member_from_list( %{ shift @_ } );
843            }
844  }  }
845    
846    
847  =head2 AddMessageToList  =head2 AddMessageToList
848    
849   $message_id = AddMessageToList(   $message_id = AddMessageToList(

Legend:
Removed from v.60  
changed lines
  Added in v.62

  ViewVC Help
Powered by ViewVC 1.1.26