--- loncom/auth/lonauth.pm	2003/02/20 06:49:23	1.41
+++ loncom/auth/lonauth.pm	2003/02/26 14:10:38	1.42
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.41 2003/02/20 06:49:23 albertel Exp $
+# $Id: lonauth.pm,v 1.42 2003/02/26 14:10:38 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -156,7 +156,7 @@ sub success {
 	print $idf "request.course.uri=\n";
 	print $idf "request.course.sec=\n";
 	print $idf "request.role=cm\n";
-	print $idf "request.host=$ENV{'HTTP_HOST'}\n";
+	print $idf "request.host=$ENV{'REMOTE_ADDR'}\n";
 	if ($FORM{'interface'}) {
 	    $FORM{'interface'}=~s/\W//gs;
 	    print $idf "browser.interface=$FORM{'interface'}\n";