--- rat/lonpageflip.pm	2006/05/30 19:47:40	1.69
+++ rat/lonpageflip.pm	2006/08/18 20:24:53	1.70
@@ -2,7 +2,7 @@
 #
 # Page flip handler
 #
-# $Id: lonpageflip.pm,v 1.69 2006/05/30 19:47:40 www Exp $
+# $Id: lonpageflip.pm,v 1.70 2006/08/18 20:24:53 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,6 +33,7 @@ use strict;
 use LONCAPA;
 use Apache::Constants qw(:common :http REDIRECT);
 use Apache::lonnet;
+use Apache::loncommon();
 use HTML::TokeParser;
 use GDBM_File;
 
@@ -256,7 +257,7 @@ sub handler {
 	  my $furl=&first_accessible_resource();
 	  &Apache::loncommon::content_type($r,'text/html');
 	  $r->header_out(Location => 
-			 'http://'.$ENV{'HTTP_HOST'}.$furl);
+			 &Apache::loncommon::absolute_url().$furl);
 	     
 	  return REDIRECT;
       }
@@ -290,7 +291,7 @@ sub handler {
 	 } else {
 	     &Apache::loncommon::content_type($r,'text/html');
 	     $r->header_out(Location => 
-			    'http://'.$ENV{'HTTP_HOST'}.$newloc);
+			    &Apache::loncommon::absolute_url().$newloc);
 	     
 	     return REDIRECT;
 	 }
@@ -313,7 +314,8 @@ sub handler {
 	     if ($direction eq 'return') {
 		 &Apache::loncommon::content_type($r,'text/html');
 		 $r->header_out(Location => 
-				'http://'.$ENV{'HTTP_HOST'}.'/adm/noidea.html');
+				&Apache::loncommon::absolute_url().
+				'/adm/noidea.html');
 		 return REDIRECT;
 	     } else {
 		 &navlaunch($r);
@@ -415,7 +417,7 @@ sub handler {
 		  }
 
 		  &Apache::loncommon::content_type($r,'text/html');
-		  my $url='http://'.$ENV{'HTTP_HOST'}.$redirecturl;
+		  my $url=&Apache::loncommon::absolute_url().$redirecturl;
 		  $url = &add_get_param($url, { 'symb' => $redirectsymb});
                   $r->header_out(Location => $url);
                   return REDIRECT;