[LON-CAPA-cvs] cvs: rat(version_2_11_X) / lonpageflip.pm

raeburn raeburn at source.lon-capa.org
Thu Jun 26 14:28:25 EDT 2014


raeburn		Thu Jun 26 18:28:25 2014 EDT

  Modified files:              (Branch: version_2_11_X)
    /rat	lonpageflip.pm 
  Log:
  - For 2.11
    - Reverse changes in 1.80.8.1. pop-up Course Contents window (remotenavmap)
      discontinued in 2.11.
  
  
Index: rat/lonpageflip.pm
diff -u rat/lonpageflip.pm:1.80.8.5 rat/lonpageflip.pm:1.80.8.6
--- rat/lonpageflip.pm:1.80.8.5	Thu Jun 26 18:21:24 2014
+++ rat/lonpageflip.pm	Thu Jun 26 18:28:25 2014
@@ -2,7 +2,7 @@
 #
 # Page flip handler
 #
-# $Id: lonpageflip.pm,v 1.80.8.5 2014/06/26 18:21:24 raeburn Exp $
+# $Id: lonpageflip.pm,v 1.80.8.6 2014/06/26 18:28:25 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -218,26 +218,6 @@
               return ($next,$mapurl);
 }
 
-sub navlaunch {
-    my ($r)=@_;
-    &Apache::loncommon::content_type($r,'text/html');
-    &Apache::loncommon::no_cache($r);
-    $r->send_http_header;
-    $r->print(&Apache::loncommon::start_page('Launched'));
-    $r->print(<<ENDNAV);
-    <p><a href="/adm/flip?postdata=firstres%3a">Goto first resource</a></p>
-    <script type="text/javascript">
-        function collapse() {
-            menu=window.open("/adm/navmaps?collapseExternal","loncapanav",
-                             "height=600,width=400,scrollbars=1");
-            this.document.location='/adm/navmaps?turningOffExternal';
-        }
-    </script>
-    <p><a href="javascript:collapse();">Collapse external navigation window</a></p>
-ENDNAV
-    $r->print(&Apache::loncommon::end_page());
-}
-
 sub first_accessible_resource {
     my $furl;
     if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db',
@@ -249,8 +229,7 @@
 	    my ($name,$value) = split(/=/,$pair);
 	    $args{&unescape($name)} = &unescape($value);
 	}
-        if ((($env{'environment.remotenavmap'} eq 'on') && ($furl =~ m{^/adm/navmaps})) ||
-            (!&Apache::lonnet::allowed('bre',$url,$args{'symb'}))) {
+        if (!&Apache::lonnet::allowed('bre',$url,$args{'symb'})) {
 # 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
@@ -304,7 +283,7 @@
 	     
 	  return REDIRECT;
       }
-      if ($direction eq 'return' || $direction eq 'navlaunch') {
+      if ($direction eq 'return') { 
 # -------------------------------------------------------- Return to last known
          my $last;
          if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
@@ -328,16 +307,11 @@
          } else {
 	    $newloc='/adm/navmaps';
          }
-         if (($newloc =~ m{^/adm/navmaps}) && ($direction eq 'navlaunch')) {
-             &navlaunch($r);
-             return OK;
-         } else {
-	     &Apache::loncommon::content_type($r,'text/html');
-	     $r->header_out(Location => 
-			    &Apache::lonnet::absolute_url().$newloc);
+	 &Apache::loncommon::content_type($r,'text/html');
+	 $r->header_out(Location => 
+			&Apache::lonnet::absolute_url().$newloc);
 	     
-	     return REDIRECT;
-         }
+	 return REDIRECT;
       }
       $currenturl=~s/^https?\:\/\///;
       $currenturl=~s/^[^\/]+//;
@@ -354,16 +328,11 @@
          if ($last) {
 	     $currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[2]);
 	 } else {
-             if ($direction eq 'return') {
-		 &Apache::loncommon::content_type($r,'text/html');
-		 $r->header_out(Location => 
-				&Apache::lonnet::absolute_url().
-				'/adm/noidea.html');
-		 return REDIRECT;
-             } else {
-                 &navlaunch($r);
-                 return OK;
-             }
+	     &Apache::loncommon::content_type($r,'text/html');
+	     $r->header_out(Location => 
+			    &Apache::lonnet::absolute_url().
+			    '/adm/noidea.html');
+	     return REDIRECT;
          }
       }
 # ------------------------------------------- Do we have any idea where we are?
@@ -552,8 +521,6 @@
 
 =item get_next_possible_move()
 
-=item navlaunch()
-
 =item first_accessible_resource()
 
 =item handler()




More information about the LON-CAPA-cvs mailing list