--- loncom/interface/loncreateuser.pm 2010/09/08 02:16:07 1.347 +++ loncom/interface/loncreateuser.pm 2010/09/26 01:57:21 1.350 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Create a user # -# $Id: loncreateuser.pm,v 1.347 2010/09/08 02:16:07 raeburn Exp $ +# $Id: loncreateuser.pm,v 1.350 2010/09/26 01:57:21 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1461,7 +1461,8 @@ sub display_existing_roles { $rolesdump{$newkey} = $newvalue; } } else { - %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname); + my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1}); + %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname,'.',undef,$extra); } # Build up table of user roles to allow revocation and re-enabling of roles. my ($tmp) = keys(%rolesdump); @@ -3445,7 +3446,7 @@ sub update_roles { } } # End of foreach (keys(%env)) # Flush the course logs so reverse user roles immediately updated - &Apache::lonnet::flushcourselogs(); + $r->register_cleanup(\&Apache::lonnet::flushcourselogs); if (@rolechanges == 0) { $r->print(&mt('No roles to modify')); }