[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Tue Aug 26 22:29:34 2008 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Sixth arg to &assignrole() is starttime - set this to undef when revoking role.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.964 loncom/lonnet/perl/lonnet.pm:1.965
--- loncom/lonnet/perl/lonnet.pm:1.964	Wed Aug 13 04:17:57 2008
+++ loncom/lonnet/perl/lonnet.pm	Tue Aug 26 22:29:31 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.964 2008/08/13 08:17:57 bisitz Exp $
+# $Id: lonnet.pm,v 1.965 2008/08/27 02:29:31 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5879,7 +5879,7 @@
 sub revokerole {
     my ($udom,$uname,$url,$role,$deleteflag,$selfenroll,$context)=@_;
     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