loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.963, 2008/07/17 21:22:51	version 1.965, 2008/08/27 02:29:31
Line 5879 sub assigncustomrole {	Line 5879 sub assigncustomrole {
sub revokerole {	sub revokerole {
my ($udom,$uname,$url,$role,$deleteflag,$selfenroll,$context)=@_;	my ($udom,$uname,$url,$role,$deleteflag,$selfenroll,$context)=@_;
my $now=time;	my $now=time;
return &assignrole($udom,$uname,$url,$role,$now,$deleteflag,$selfenroll,$context);	return &assignrole($udom,$uname,$url,$role,$now,undef,$deleteflag,$selfenroll,$context);
}	}

# ---------------------------------------------------------- Revoke Custom Role	# ---------------------------------------------------------- Revoke Custom Role
Line 9175 Inputs:	Line 9175 Inputs:

=item B<$uname> Student's loncapa login name	=item B<$uname> Student's loncapa login name

=item B<$uid> Student's id/student number	=item B<$uid> Student/Employee ID

=item B<$umode> Student's authentication mode	=item B<$umode> Student's authentication mode