![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.1075.2.141.2.13, 2021/01/29 02:58:40 | version 1.1075.2.141.2.14, 2021/01/30 23:26:03 |
|---|---|
| Line 15888 sub compare_arrays { | Line 15888 sub compare_arrays { |
| return @difference; | return @difference; |
| } | } |
| sub lon_status_items { | |
| my %defaults = ( | |
| E => 100, | |
| W => 4, | |
| N => 1, | |
| U => 5, | |
| threshold => 200, | |
| sysmail => 2500, | |
| ); | |
| my %names = ( | |
| E => 'Errors', | |
| W => 'Warnings', | |
| N => 'Notices', | |
| U => 'Unsent', | |
| ); | |
| return (\%defaults,\%names); | |
| } | |
| # -------------------------------------------------------- Initialize user login | # -------------------------------------------------------- Initialize user login |
| sub init_user_environment { | sub init_user_environment { |
| my ($r, $username, $domain, $authhost, $form, $args) = @_; | my ($r, $username, $domain, $authhost, $form, $args) = @_; |