[comment] ui_template: Yes ui_template_name: leftonly [/comment] [tmp page_title][L]Trying to retrieve....[/L][/tmp] [control reset=1] [control-set] [component]search_box_small[/component] [/control-set] [control-set] [component]product_tree[/component] [/control-set] [control reset=1] @_LEFTONLY_TOP_@

> ## [L]Trying to retrieve....[/L]

> [perl] if( $Scratch->{tried_pw_retrieve}++ > 10 ) { return "No way, José. Too many times."; } $CGI->{mv_todo} = 'search'; $Config->{NoSearch} = ''; [/perl] [update process] [search-region] [set get_id_matches][search-list][if-item-data userdb email][item-code][/if-item-data][/search-list][/set] [no-match]

> ## [L]Sorry, no match for that. Try again?[/L]

> [include forms/get_id] [/no-match] [/search-region] [perl] $Config->{NoSearch} = 'userdb'; return; [/perl] [if value mv_search_match_count > 1]

> ## [msg arg.0="[page lost_password]" arg.1=""]That one generated more than one match. %sTry again%s with more info?[/msg]

> [set get_id_matches][/set] [/if] [if scratch get_id_matches] [set name=id_ok][/set] [set name=id_ok interpolate=1][loop arg="[scratch get_id_matches]"][email to="[loop-data userdb email]" subject="[L]Your login information[/L]" from="__COMPANY__ [L]password minder[/L] <__EMAIL_SERVICE__>" reply="__EMAIL_SERVICE__"] [L GET_PASSWORD_MSG1]Hello! You requested that your ID and password be sent to your email address of record. The information is[/L]: [L]Username[/L]: [loop-code] [L]Password[/L]: [data table=userdb col=password key="[loop-code]" safe-data=1] [L]You can log in at[/L]: [area login] [L GET_PASSWORD_MSG2]Please contact us if we can be of service, and thank you for doing business with us.[/L] [/email][/loop][/set] [if !scratch id_ok] [L]Something went wrong when mailing, perhaps a typo in your email address?[/L] [L]Please either[/L] [page new_account][L]create a new account[/L] [L]or[/L] [page contact][L]contact us[/L]. [else]

> ## [L]ID sent by fastest available email method![/L]

> [/else] [/if] [/if]

@_LEFTONLY_BOTTOM_@