[LON-CAPA-cvs] cvs: loncom /homework lonhomework.pm

[albertel]

albertel		Mon Aug 29 15:28:45 2005 EDT

  Modified files:              
    /loncom/homework	lonhomework.pm 
  Log:
  - if they say no in the client access control field ignore it
  
  
Index: loncom/homework/lonhomework.pm
diff -u loncom/homework/lonhomework.pm:1.217 loncom/homework/lonhomework.pm:1.218
--- loncom/homework/lonhomework.pm:1.217	Thu Aug 18 12:08:31 2005
+++ loncom/homework/lonhomework.pm	Mon Aug 29 15:28:43 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.217 2005/08/18 16:08:31 albertel Exp $
+# $Id: lonhomework.pm,v 1.218 2005/08/29 19:28:43 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -183,7 +183,10 @@
 $Apache::lonxml::browse='';
 sub check_ip_acc {
     my ($acc)=@_;
-    if (!defined($acc) || $acc =~ /^\s*$/) { return 1; }
+    &Apache::lonxml::debug("acc is $acc");
+    if (!defined($acc) || $acc =~ /^\s*$/ || $acc =~/^\s*no\s*$/i) { 
+	return 1;
+    }
     my $allowed=0;
     my $ip=$ENV{'REMOTE_ADDR'};
     my $name;