--- loncom/homework/lonhomework.pm	2007/08/24 21:13:53	1.271
+++ loncom/homework/lonhomework.pm	2007/08/24 22:58:18	1.272
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.271 2007/08/24 21:13:53 albertel Exp $
+# $Id: lonhomework.pm,v 1.272 2007/08/24 22:58:18 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -195,7 +195,8 @@ sub check_ip_acc {
 	return 1;
     }
     my $allowed=0;
-    my $ip=$ENV{'REMOTE_ADDR'};
+    my $ip=$env{'request.host'} || $ENV{'REMOTE_ADDR'};
+
     my $name;
     foreach my $pattern (split(',',$acc)) {
 	$pattern =~ s/^\s*//;