[calc] $CGI->{no_dbmenu} = 1; $CGI->{access_menu} = 1; return [/calc] [seti page_title]Change password: [cgi user_id][/seti] [seti page_banner]Change password: [cgi user_id][/seti] [set ui_class]Admin[/set] [set page_perm]access=e[/set] [set help_name]change.password[/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]
[/loop] [/then] [else] [/else] [/if] @_UI_STD_FOOTER_@