--- loncom/interface/loncommon.pm 2021/01/29 02:58:40 1.1075.2.141.2.13 +++ loncom/interface/loncommon.pm 2021/03/04 14:13:41 1.1075.2.141.2.15 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1075.2.141.2.13 2021/01/29 02:58:40 raeburn Exp $ +# $Id: loncommon.pm,v 1.1075.2.141.2.15 2021/03/04 14:13:41 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -8082,7 +8082,7 @@ ADDMETA } if ($locknum) { my @lockinfo = sort(values(%locks)); - $msg = &mt('Once the following tasks are complete: ')."\n". + $msg = &mt('Once the following tasks are complete:')." \n". join(", ",sort(values(%locks)))."\n"; if (&show_course()) { $msg .= &mt('your session will be transferred to a different server, after you click "Courses".'); @@ -15888,6 +15888,24 @@ sub compare_arrays { 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 sub init_user_environment { my ($r, $username, $domain, $authhost, $form, $args) = @_;