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

[raeburn]

raeburn		Wed Oct 12 12:50:43 2005 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  Cause of part of bug 4348.  nohist_userroles.db files will contain duplicate entries for each user with a custom role created using lonnet rev 1.349 to 1.662. &rolesinit() sends role as 'cr/$dom/$user/$custom_name' to userrolelog(); &assignrole() was sending 'cr'.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.662 loncom/lonnet/perl/lonnet.pm:1.663
--- loncom/lonnet/perl/lonnet.pm:1.662	Tue Oct 11 17:29:38 2005
+++ loncom/lonnet/perl/lonnet.pm	Wed Oct 12 12:50:37 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.662 2005/10/11 21:29:38 raeburn Exp $
+# $Id: lonnet.pm,v 1.663 2005/10/12 16:50:37 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3669,7 +3669,7 @@
     my $answer=&reply($command,&homeserver($uname,$udom));
 # log new user role if status is ok
     if ($answer eq 'ok') {
-	&userrolelog($mrole,$uname,$udom,$url,$start,$end);
+	&userrolelog($role,$uname,$udom,$url,$start,$end);
     }
     return $answer;
 }