--- rat/lonpageflip.pm	2006/05/08 22:14:15	1.68
+++ rat/lonpageflip.pm	2006/08/18 20:24:53	1.70
@@ -2,7 +2,7 @@
 #
 # Page flip handler
 #
-# $Id: lonpageflip.pm,v 1.68 2006/05/08 22:14:15 albertel 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;
 
@@ -200,6 +201,30 @@ sub navlaunch {
 ENDNAV
     $r->print(&Apache::loncommon::end_page());
 }
+
+sub first_accessible_resource {
+    my $furl;
+    if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db',
+	    &GDBM_READER(),0640)) {
+	$furl=$hash{'first_url'};
+        if (!&Apache::lonnet::allowed('bre',$furl)) {
+# Wow, we cannot see this ... move forward to the next one that we can see
+	    my ($newrid,$newmap)=&move($hash{'first_rid'},$hash{'first_mapurl'},'forward');
+# Build the new URL
+	    my ($newresid,$newmapid)=split(/\./,$newrid);
+	    my $symb=&Apache::lonnet::encode_symb($newmap,$newresid,$hash{'src_'.$newrid});
+	    $furl=&add_get_param($hash{'src_'.$newrid},{ 'symb' => $symb });
+	    if ($hash{'encrypted_'.$newrid}) {
+		$furl=&Apache::lonenc::encrypted($furl);
+	    }
+	}
+	untie(%hash);
+	return $furl;
+    } else {
+	return '/adm/navmaps';
+    }
+}
+
 # ================================================================ Main Handler
 
 sub handler {
@@ -229,15 +254,10 @@ sub handler {
       }
       $currenturl=~s/\.\d+\.(\w+)$/\.$1/;
       if ($direction eq 'firstres') {
-	  my $furl;
-	  if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db',
-		  &GDBM_READER(),0640)) {
-	      $furl=$bighash{'first_url'};
-	      untie(%bighash);
-	  }
+	  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;
       }
@@ -271,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;
 	 }
@@ -294,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);
@@ -396,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;