[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm
From: www <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2002-06-27 19:04:15
Message-ID: cvswww1025204655 () cvsserver
[Download RAW message or body]
www Thu Jun 27 15:04:15 2002 EDT
Modified files:
/loncom/lonnet/perl lonnet.pm
Log:
Only kick out if there actually is a symb.
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.247 loncom/lonnet/perl/lonnet.pm:1.248
--- loncom/lonnet/perl/lonnet.pm:1.247 Thu Jun 27 12:03:55 2002
+++ loncom/lonnet/perl/lonnet.pm Thu Jun 27 15:04:15 2002
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.247 2002/06/27 16:03:55 www Exp $
+# $Id: lonnet.pm,v 1.248 2002/06/27 19:04:15 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1741,8 +1741,10 @@
if ($thisallowed=~/X/) {
if ($ENV{'acc.randomout'}) {
- my $symb=&symbread();
- if ($ENV{'acc.randomout'}=~/\&$symb\&/) { return ''; }
+ my $symb=&symbread($uri);
+ if (($symb) && ($ENV{'acc.randomout'}=~/\&$symb\&/)) {
+ return '';
+ }
}
if (&condval($statecond)) {
return '2';
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic