1 % unless ( $cond{'CanSet'} ) {
2 <% $cond{'Reason'} %><br />
6 % if ( $cond{'RequireCurrent'} ) {
8 <td><&|/l&>Your current password</&>:</td>
9 <td><input type="password" name="<% $Name[0] %>" size="16" autocomplete="off" /></td>
14 <td><&|/l&>New password</&>:</td>
15 <td><input type="password" name="<% $Name[1] %>" size="16" autocomplete="off" /></td>
19 <td><&|/l&>Retype Password</&>:</td>
20 <td><input type="password" name="<% $Name[2] %>" size="16" autocomplete="off" /></td>
28 @Name => qw(CurrentPass NewPass1 NewPass2)
32 my %cond = $User->CurrentUserRequireToSetPassword;