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

[albertel]

albertel		Tue Oct 14 14:44:21 2003 EDT

  Modified files:              
    /loncom/homework	lonhomework.pm 
  Log:
  - access allowed in $acc is blank
  
  
Index: loncom/homework/lonhomework.pm
diff -u loncom/homework/lonhomework.pm:1.153 loncom/homework/lonhomework.pm:1.154
--- loncom/homework/lonhomework.pm:1.153	Tue Oct 14 11:47:50 2003
+++ loncom/homework/lonhomework.pm	Tue Oct 14 14:44:21 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.153 2003/10/14 15:47:50 albertel Exp $
+# $Id: lonhomework.pm,v 1.154 2003/10/14 18:44:21 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -149,7 +149,7 @@
 
 sub check_ip_acc {
     my ($acc)=@_;
-    if (!defined($acc)) { return 1; }
+    if (!defined($acc) || $acc =~ /^\s*$/) { return 1; }
     my $allowed=0;
     my $ip=$ENV{'REMOTE_ADDR'};
     my $name;