blob: 3b0ec0b327983f57f057598eed7fa98e012d3eb3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
% unless ( $cond{'CanSet'} ) {
<% $cond{'Reason'} %><br />
% } else {
<table>
% if ( $cond{'RequireCurrent'} ) {
<tr>
<td><&|/l&>Your current password</&>:</td>
<td><input type="password" name="<% $Name[0] %>" size="16" autocomplete="off" /></td>
</tr>
% }
<tr>
<td><&|/l&>New password</&>:</td>
<td><input type="password" name="<% $Name[1] %>" size="16" autocomplete="off" /></td>
</tr>
<tr>
<td><&|/l&>Retype Password</&>:</td>
<td><input type="password" name="<% $Name[2] %>" size="16" autocomplete="off" /></td>
</tr>
</table>
% }
<%ARGS>
$User
@Name => qw(CurrentPass NewPass1 NewPass2)
</%ARGS>
<%INIT>
my %cond = $User->CurrentUserRequireToSetPassword;
</%INIT>
|
