Update of /cvsroot/openinteract/OpenInteract/pkg/base_user/OpenInteract
In directory usw-pr-cvs1:/tmp/cvs-serv32052/OpenInteract
Modified Files:
User.pm
Log Message:
dumb fix
Index: User.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/pkg/base_user/OpenInteract/User.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** User.pm 2001/11/20 03:30:54 1.6
--- User.pm 2001/11/28 13:04:02 1.7
***************
*** 90,93 ****
--- 90,94 ----
sub is_in_group {
my ( $self, $group_spec ) = @_;
+ my $R = OpenInteract::Request->instance;
my $check_group_id = ( ref $group_spec )
? $group_spec->id : $group_spec;
|
