[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm
raeburn
raeburn at source.lon-capa.org
Tue May 11 13:51:23 EDT 2021
raeburn Tue May 11 17:51:23 2021 EDT
Modified files:
/loncom/lonnet/perl lonnet.pm
Log:
- Most likely what was intended in lonnet.pm rev. 1.52 (10/28/2000).
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1454 loncom/lonnet/perl/lonnet.pm:1.1455
--- loncom/lonnet/perl/lonnet.pm:1.1454 Mon May 10 20:09:25 2021
+++ loncom/lonnet/perl/lonnet.pm Tue May 11 17:51:23 2021
@@ -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 @@
}
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 '.
More information about the LON-CAPA-cvs
mailing list