--- loncom/auth/lonroles.pm 2008/03/17 14:38:30 1.187 +++ loncom/auth/lonroles.pm 2008/05/12 23:47:37 1.188 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.187 2008/03/17 14:38:30 bisitz Exp $ +# $Id: lonroles.pm,v 1.188 2008/05/12 23:47:37 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -106,6 +106,10 @@ sub handler { # ================================================================== Roles Init if ($env{'form.selectrole'}) { + + my $locknum=&Apache::lonnet::get_locks(); + if ($locknum) { return 409; } + if ($env{'form.newrole'}) { $env{'form.'.$env{'form.newrole'}}=1; }