[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface lonuserutils.pm
raeburn
raeburn at source.lon-capa.org
Mon Aug 23 20:22:59 EDT 2021
raeburn Tue Aug 24 00:22:59 2021 EDT
Modified files: (Branch: version_2_11_X)
/loncom/interface lonuserutils.pm
Log:
- For 2.11
Backport 1.208, 1.209
Index: loncom/interface/lonuserutils.pm
diff -u loncom/interface/lonuserutils.pm:1.184.4.9 loncom/interface/lonuserutils.pm:1.184.4.10
--- loncom/interface/lonuserutils.pm:1.184.4.9 Sat May 2 20:34:53 2020
+++ loncom/interface/lonuserutils.pm Tue Aug 24 00:22:59 2021
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Utility functions for managing LON-CAPA user accounts
#
-# $Id: lonuserutils.pm,v 1.184.4.9 2020/05/02 20:34:53 raeburn Exp $
+# $Id: lonuserutils.pm,v 1.184.4.10 2021/08/24 00:22:59 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -543,13 +543,15 @@
case 'krb':
alertmsg = '$alert{'krb'}';
break;
- case 'loc':
case 'int':
alertmsg = '$alert{'ipass'}';
break;
case 'fsys':
alertmsg = '$alert{'ipass'}';
break;
+ case 'loc':
+ alertmsg = '';
+ break;
default:
alertmsg = '';
}
@@ -5115,7 +5117,11 @@
my %passwdconf = &Apache::lonnet::get_passwdconf($domain);
$warning = '<b>'.&mt('Password requirement(s) unmet for one or more users:').'</b><ul>';
if ($showrules{'min'}) {
- $warning .= '<li>'.&mt('minimum [quant,_1,character]',$passwdconf{'min'}).'</li>';
+ my $min = $passwdconf{'min'};
+ if ($min eq '') {
+ $min = $Apache::lonnet::passwdmin;
+ }
+ $warning .= '<li>'.&mt('minimum [quant,_1,character]',$min).'</li>';
}
if ($showrules{'max'}) {
$warning .= '<li>'.&mt('maximum [quant,_1,character]',$passwdconf{'max'}).'</li>';
More information about the LON-CAPA-cvs
mailing list