--- trunk/Nos.pm	2005/05/16 13:52:43	25
+++ trunk/Nos.pm	2005/05/16 16:25:14	27
@@ -9,8 +9,6 @@
 our @ISA = qw(Exporter);
 
 our %EXPORT_TAGS = ( 'all' => [ qw(
-	add_member_to_list
-	add_message_to_queue
 ) ] );
 
 our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
@@ -18,7 +16,7 @@
 our @EXPORT = qw( 
 );
 
-our $VERSION = '0.1';
+our $VERSION = '0.2';
 
 use Class::DBI::Loader;
 use Email::Valid;
@@ -87,7 +85,7 @@
 
 C<name> parametar is optional.
 
-Return true if user is added.
+Return member ID if user is added.
 
 =cut
 
@@ -105,7 +103,7 @@
 		return 0;
 	}
 
-	print "# $name <$email>\n";
+	print STDERR "# $name <$email>\n";
 
 	my $lists = $self->{'loader'}->find_class('lists');
 	my $users = $self->{'loader'}->find_class('users');
@@ -129,7 +127,7 @@
 	$this_user->dbi_commit;
 	$user_on_list->dbi_commit;
 
-	return 1;
+	return $this_user->id;
 }
 
 =head2 add_message_to_queue
@@ -247,16 +245,7 @@
 
 =head1 EXPORT
 
-Exported methods are also available using SOAP interface. For now, those are:
-
-=over 4
-
-=item add_member_to_list
-
-=item add_message_to_queue
-
-=back
-
+Nothing.
 
 =head1 SEE ALSO