--- loncom/lonnet/perl/lonnet.pm 2021/05/10 20:09:25 1.1454 +++ loncom/lonnet/perl/lonnet.pm 2021/05/11 17:51:23 1.1455 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1454 2021/05/10 20:09:25 raeburn Exp $ +# $Id: lonnet.pm,v 1.1455 2021/05/11 17:51:23 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -8595,7 +8595,7 @@ sub allowed { } if (($env{$prefix.'priv.'.$priv.'.lock.sections'}=~/\,\Q$csec\E\,/) || ($env{$prefix.'priv.'.$priv.'.lock.sections'} eq 'all')) { - if ($env{'priv.'.$priv.'.lock.expire'}>time) { + if ($env{$prefix.'priv.'.$priv.'.lock.expire'}>time) { &log($env{'user.domain'},$env{'user.name'}, $env{'user.home'}, 'Locked by priv: '.$priv.' for '.$uri.' due to '.