Tadashi Okoshi
slash****@users*****
2005年 6月 26日 (日) 23:20:39 JST
Index: affelio/lib/Affelio/Managing/GroupManager.pm diff -u affelio/lib/Affelio/Managing/GroupManager.pm:1.2 affelio/lib/Affelio/Managing/GroupManager.pm:1.3 --- affelio/lib/Affelio/Managing/GroupManager.pm:1.2 Sat Jun 25 21:14:06 2005 +++ affelio/lib/Affelio/Managing/GroupManager.pm Sun Jun 26 23:20:39 2005 @@ -4,7 +4,7 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: GroupManager.pm,v 1.2 2005/06/25 12:14:06 slash5234 Exp $ +# $Id: GroupManager.pm,v 1.3 2005/06/26 14:20:39 slash5234 Exp $ package Affelio::Managing::GroupManager; { @@ -17,6 +17,7 @@ use Affelio; use Affelio::misc::CGIError; use Affelio::misc::Debug qw(debug_print); + use Affelio::misc::DBroutines qw(db_value_replace); ######################################################################## #Constructor @@ -192,6 +193,25 @@ ######################################################################## #remove_member ######################################################################## + sub remove_person_from_all{ + my $self = shift; + my $uid = shift; #arg(1) uid + + my $af=$self->{af}; + + db_value_replace($af->{db}, + "AFuser_CORE_group", + "gid", + "members", + ",$uid," , + ",," , + ); + } + + + ######################################################################## + #remove_member + ######################################################################## sub remove_member{ #void my $self = shift; my $gid = shift; #arg(1) gid
