[LON-CAPA-cvs] cvs: loncom /interface lonnavdisplay.pm

musolffc musolffc at source.lon-capa.org
Tue May 20 16:31:00 EDT 2014


musolffc		Tue May 20 20:31:00 2014 EDT

  Modified files:              
    /loncom/interface	lonnavdisplay.pm 
  Log:
  Calls critical_redirect() to check for critical messages
  
  
Index: loncom/interface/lonnavdisplay.pm
diff -u loncom/interface/lonnavdisplay.pm:1.26 loncom/interface/lonnavdisplay.pm:1.27
--- loncom/interface/lonnavdisplay.pm:1.26	Sat May  3 15:22:02 2014
+++ loncom/interface/lonnavdisplay.pm	Tue May 20 20:30:59 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
-# Navigate Maps Handler
+
 #
-# $Id: lonnavdisplay.pm,v 1.26 2014/05/03 15:22:02 raeburn Exp $
+# $Id: lonnavdisplay.pm,v 1.27 2014/05/20 20:30:59 musolffc Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -30,7 +30,7 @@
 package Apache::lonnavdisplay;
 
 use strict;
-use Apache::Constants qw(:common :http);
+use Apache::Constants qw(:common :http REDIRECT);
 use Apache::lonmenu();
 use Apache::loncommon();
 use Apache::lonnavmaps();
@@ -59,6 +59,16 @@
         return OK;
     }
 
+    # Check for critical messages and redirect if present.  
+    my ($redirect,$url) = &Apache::loncommon::critical_redirect(300);
+    if ($redirect) {
+        &Apache::loncommon::content_type($r,'text/html');
+        $r->header_out(Location => $url);
+        return REDIRECT;
+    }
+
+
+
     # Send header, don't cache this page
     if ($env{'browser.mathml'}) {
         &Apache::loncommon::content_type($r,'text/xml');




More information about the LON-CAPA-cvs mailing list