[LON-CAPA-cvs] cvs: rat(version_2_8_X) / lonsequence.pm

[raeburn]

raeburn		Sun Dec 21 04:53:39 2008 EDT

  Modified files:              (Branch: version_2_8_X)
    /rat	lonsequence.pm 
  Log:
  - Backport 1.36.
  
  
Index: rat/lonsequence.pm
diff -u rat/lonsequence.pm:1.32 rat/lonsequence.pm:1.32.2.1
--- rat/lonsequence.pm:1.32	Sat Dec  1 01:59:54 2007
+++ rat/lonsequence.pm	Sun Dec 21 04:53:39 2008
@@ -2,7 +2,7 @@
 #
 # Sequence Handler
 #
-# $Id: lonsequence.pm,v 1.32 2007/12/01 01:59:54 albertel Exp $
+# $Id: lonsequence.pm,v 1.32.2.1 2008/12/21 04:53:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -278,7 +278,8 @@
       &Apache::lonnet::symblist($requrl,$disurl => [$disurl,$dismapid],
 				'last_known' => [$disurl,$dismapid]); 
       &Apache::loncommon::content_type($r,'text/html');
-      $r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl);
+      $r->header_out(Location => &Apache::lonnet::absolute_url($ENV{'SERVER_NAME'}).
+                                 $disurl);
       return REDIRECT;
    } else {
        &Apache::loncommon::content_type($r,'text/html');