loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.1321, 2018/09/18 02:18:43
+version 1.1322, 2018/11/06 15:37:37
  Line 16420  sub compare_arrays {
      return @difference;
  }
+ sub lon_status_items {
+     my %defaults = (
+                      E         => 100,
+                      W         => 4,
+                      N         => 1,
+                      threshold => 200,
+                      sysmail   => 2500,
+                    );
+     my %names = (
+                    E => 'Errors',
+                    W => 'Warnings',
+                    N => 'Notices',
+                 );
+     return (\%defaults,\%names);
+ }
  # -------------------------------------------------------- Initialize user login
  sub init_user_environment {
      my ($r, $username, $domain, $authhost, $form, $args) = @_;