#####################################################################
#                              script:  html.pl                     #
#                              sub html_footer                      #
#                                                                   #
#                                  add line                         #
#                                                                   #
# Where to put it--                                                 #
#   after                                                           #
#      print qq!| <A HREF="$db_script_link_url&admin_display=1">Admin</A> !  if ($per_admin); 
#####################################################################

print qq!| <A HREF="$db_script_link_url&change_password_form=1">Change Password</A> ! unless ($db_userid eq "default");

#####################################################################
#                              script:  html.pl                     #
#                       sub html_change_password_form               #
#                                                                   #
#                               new subroutine                      #
#####################################################################

sub html_change_password_form {
# --------------------------------------------------------
# This form is displayed when users want to change their password.
#       
    my $error = shift;

    $page_title = "Change Password";
    &html_page_top;

    $submit_button = "Change Password";
    $reset_button = "Reset";

# < -- Start page text -- >
    print qq|
  <$font>To change your password, simply enter old password and your new password twice in the fields 
  below.  You will then be asked to log in again, using your new password. 
                  <p>
 |; 
                  
  if ($error) { print "<font color=red>$error</font></p>"; } 
    
  print qq|
    <form action="$db_script_url" method="post">
      <input type=hidden name="db" value="$db_setup">
      <input type=hidden name="uid" value="$db_uid">      
      <table border=0>
        <tr><td><Font face="Verdana, Arial, Helvetica" Size=2 Color=#003399><b>Old Password:</b></FONT></td>
            <td><input type="password" name="old" value=""></td></tr>
        <tr><td><Font face="Verdana, Arial, Helvetica" Size=2 Color=#003399><b>New Password:</b></FONT></td>
            <td><input type="password" name="pw1" value=""></td></tr>
       <tr><td><Font face="Verdana, Arial, Helvetica" Size=2 Color=#003399><b>Enter it again:</b></FONT></td>
           <td><input type="password" name="pw2" value=""></td></tr>
       </table>            
       <center>
         <input type="SUBMIT" name="change_password" value="$submit_button"> 
         <INPUT TYPE="RESET" VALUE="$reset_button"></center></form></p></font>|;
    &html_footer;
    &html_page_bottom; 
}     

sub html_change_password_success {
# --------------------------------------------------------

    $page_title = "Password Changed";
    &html_page_top;

    $submit_button = "Logon";
    $reset_button = "Cancel";

# < -- Start page text -- >
    print qq|   <$font>Your password has been changed! Please use your username and 
    new password to log in.    |;
# < -- End page text -->

    print qq|
   <p>
   <form action="$db_script_url" method="post" name="form1">
     <input type=hidden name="db" value="$db_setup">
     <input type=hidden name="uid" value="$db_uid">    
     <table border=0>
      <tr><td><Font face="Verdana, Arial, Helvetica" Size=2 Color=#003399><b>User ID:</b></FONT></td>
          <td><input type="TEXT" name="userid"></td></tr>
      <tr><td><Font face="Verdana, Arial, Helvetica" Size=2 Color=#003399><b>Password:</b></FONT></td>
          <td><input type="PASSWORD" name="pw"></td></tr></table>                
  <center>
    <input type="SUBMIT" name="login" value="$submit_button"> 
    <INPUT TYPE="SUBMIT" NAME="logoff" VALUE="$reset_button"></center></form></p></font>|;
    &html_footer;
    &html_page_bottom; 
}