loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.1189, 2014/05/16 18:32:51
+version 1.1190, 2014/05/20 20:19:08
  Line 15634  sub cleanup_html {
      return $outgoing;
  }
+ # Checks for critical messages and returns a redirect url if one exists.
+ # $interval indicates how often to check for messages.
+ sub critical_redirect {
+     my ($interval) = @_;
+     if ((time-$env{'user.criticalcheck.time'})>$interval) {
+         my @what=&Apache::lonnet::dump('critical', $env{'user.domain'},
+                                         $env{'user.name'});
+         &Apache::lonnet::appenv({'user.criticalcheck.time'=>time});
+         my ($redirecturl,$redirectsymb);
+         if ($what[0]) {
+ 	    if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) {
+ 	        $redirecturl='/adm/email?critical=display';
+             }
+ 	    my $url=&Apache::lonnet::absolute_url().$redirecturl;
+             return (1, $url);
+         }
+     } else { return 0; }
+ }
  # Use:
  #   my $answer=reply("encrypt:passwd:$udom:$uname:$upass",$tryserver);
  #