[seti page_title]Change password: [cgi user_id][/seti] [seti page_banner]Change password: [cgi user_id][/seti] [set page_perm]access=e[/set] [set help_name]access.main[/set] [set icon_name]admin/icon_config.gif[/set] [set no_old_needed][/set] [if-mm super] [calc] $Scratch->{no_old_needed} = 1 unless $CGI->{user_id} eq $Session->{username}; return; [/calc] [/if-mm] @_UI_STD_HEAD_@ [if session failure]

 

[L]Failure:[/L] [data session failure][data base=session field=failure value=""]

  [/if] [if scratch ui_message]

[scratch ui_message][set ui_message][/set]

  [/if] [if scratch no_old_needed] [then] [set no_old_needed][/set] [loop list="[cgi user_id]"] [set check_match] [calc] if ($CGI->{password} eq $CGI->{verify}) { $CGI->{password} = $Tag->filter( 'crypt', $CGI->{password} ); return 'mv_todo=set'; } $Session->{failure} = "Password and verify do not match."; return "mv_todo=back\nmv_nextpage=@@MV_PAGE@@"; [/calc] [/set]

User name [loop-code]
New password
Verify password

[set Ok] [/if-mm] [/set] [if-mm advanced access=e] [set Ok] mv_todo=set [/set] [else] [set Back] mv_todo=back [/set] [/else] [/if-mm]

[/loop] [/then] [else]
Old password
New password
Verify password
[/else] [/if] @_UI_STD_FOOTER_@