This commit was generated by cvs2svn to compensate for changes in r8593,
[freeside.git] / fs_selfservice / FS-SelfService / cgi / change_password.html
1 <%= $url = "$selfurl?session=$session_id;action="; ''; %>
2 <%= include('header') %>
3
4 <FONT SIZE=4>Change password</FONT><BR><BR>
5
6 <%= if ( $error ) {
7   $OUT .= qq!<FONT SIZE="+1" COLOR="#ff0000">$error</FONT><BR><BR>!;
8 } ''; %>
9
10 <FORM ACTION="<%= $selfurl %>" METHOD="POST">
11 <INPUT TYPE="hidden" NAME="session" VALUE="<%= $session_id %>">
12 <INPUT TYPE="hidden" NAME="action" VALUE="process_change_password">
13
14 <TABLE BGCOLOR="#cccccc">
15
16   <TR>
17     <TH ALIGN="right">Change password for account: </TH>
18     <TD>
19       <SELECT NAME="svcnum">
20         <%= foreach my $svc ( @svcs ) {
21               $OUT .= '<OPTION VALUE="'. $svc->{'svcnum'}. '"'.
22                         ( $svc->{'svcnum'} eq $svcnum ? ' SELECTED' : '' ). '>'.
23                       $svc->{'label'}. ': '. $svc->{'value'}. "\n";
24             }
25         %>
26       </SELECT>
27     </TD>
28   </TR>
29
30   <TR>
31     <TH ALIGN="right">New password: </TH>
32     <TD><INPUT TYPE="password" NAME="new_password" SIZE="18"></TD>
33   </TR>
34
35   <TR>
36     <TH ALIGN="right">Re-enter new password: </TH>
37     <TD><INPUT TYPE="password" NAME="new_password2" SIZE="18"></TD>
38   </TR>
39
40 </TABLE>
41 <BR>
42
43 <INPUT TYPE="submit" VALUE="Change password">
44
45 </FORM>
46
47
48 <%= include('footer') %>