[siesta-commit] siesta/lib/Siesta List.pm,1.15,1.16

[prev] [thread] [next] [lurker] [Date index for 2002/08/23]

Update of /cvsroot/siesta/siesta/lib/Siesta
In directory usw-pr-cvs1:/tmp/cvs-serv13636

Modified Files:
	List.pm 
Log Message:
remove debugging print


Index: List.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/List.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- List.pm	23 Aug 2002 09:22:26 -0000	1.15
+++ List.pm	23 Aug 2002 11:07:01 -0000	1.16
@@ -64,18 +64,16 @@
 }
 
 sub remove_member {
-  my $self = shift;
-  my ($member) = @_;
-  if ($self->is_member($member) == 1) {
-    my $address = ref($member) ? $member->id() : $member;
-    my $t_list_users = Siesta::Storage::Table::List_Users->new();
-    my @results = $t_list_users->search2(list_id => $self->{id}, user_id => $address);
-    print scalar(@results),"\n";
-    return $results[0]->delete();
-  } else {
-    return 0;
-  }
-
+    my $self = shift;
+    my ($member) = @_;
+    if ($self->is_member($member) == 1) {
+        my $address = ref($member) ? $member->id() : $member;
+        my $t_list_users = Siesta::Storage::Table::List_Users->new();
+        my @results = $t_list_users->search2(list_id => $self->{id}, user_id => $address);
+        # print scalar(@results),"\n";
+        return $results[0]->delete();
+    }
+    return;
 }
 
 

• [siesta-commit] siesta/lib/Siesta List.pm,1.15,1.16 clampr 12:07 on 23 Aug 2002

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52