Diff for /rat/lonpageflip.pm between versions 1.80.8.4 and 1.80.8.5

version 1.80.8.4, 2014/04/28 20:23:35 version 1.80.8.5, 2014/06/26 18:21:24
Line 436  sub handler { Line 436  sub handler {
   if ($direction eq 'back') {    if ($direction eq 'back') {
                      &Apache::lonnet::linklog($redirecturl,$currenturl);                       &Apache::lonnet::linklog($redirecturl,$currenturl);
   }    }
 # ------------------------------------------------- Check for critical messages  # ------------------------------------- Check for and display critical messages
   if ((time-$env{'user.criticalcheck.time'})>300) {                    my ($redirect, $url) = &Apache::loncommon::critical_redirect(300);
                      my @what=&Apache::lonnet::dump                    unless ($redirect) {
                                   ('critical',$env{'user.domain'},                        $url=&Apache::lonnet::absolute_url().$redirecturl;
                                               $env{'user.name'});                        $url = &add_get_param($url, { 'symb' => $redirectsymb});
                      if ($what[0]) {  
                 if (($what[0] ne 'con_lost') &&   
                             ($what[0]!~/^error\:/)) {  
                    $redirecturl='/adm/email?critical=display';  
    $redirectsymb='';  
                         }  
                      }  
                      &Apache::lonnet::appenv({'user.criticalcheck.time'=>time});  
   }  
   
                   if (($redirecturl =~ m{^/adm/navmaps}) &&  
                       ($env{'environment.remotenavmap'} eq 'on')) {  
                       &navlaunch($r);  
                       return OK;  
                   }                    }
   &Apache::loncommon::content_type($r,'text/html');                    &Apache::loncommon::content_type($r,'text/html');
   my $url=&Apache::lonnet::absolute_url().$redirecturl;  
   $url = &add_get_param($url, { 'symb' => $redirectsymb});  
                   $r->header_out(Location => $url);                    $r->header_out(Location => $url);
                   return REDIRECT;                    return REDIRECT;
       } else {        } else {

Removed from v.1.80.8.4  
changed lines
  Added in v.1.80.8.5


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>