--- loncom/auth/lonlogin.pm	2006/11/01 21:27:50	1.82
+++ loncom/auth/lonlogin.pm	2006/11/10 02:02:57	1.83
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.82 2006/11/01 21:27:50 www Exp $
+# $Id: lonlogin.pm,v 1.83 2006/11/10 02:02:57 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -308,9 +308,11 @@ my %lt=&Apache::lonlocal::texthash(
 		  'log' => 'Log in',
 		  'help' => 'Help',
 		  'serv' => 'Server',
-                  'helpdesk' => 'Contact Helpdesk');
+                  'helpdesk' => 'Contact Helpdesk',
+                  'forgotpw' => 'Forgot password?');
 # -------------------------------------------------- Change password field name
     my $now=time;
+    my $forgotpw = &forgotpwdisplay(\%lt);
 # ---------------------------------------------------------- Serve rest of page
     $r->print(<<ENDSCRIPT);
 
@@ -493,6 +495,11 @@ ENDNOOPT
         <input type="submit" value="$lt{'log'}" />
        </td>
       </tr>
+      <tr>
+       <td bgcolor="$mainbg" valign="bottom" align="left" colspan="2">
+        $forgotpw
+       </td>
+      </tr>
      </table>
      <!-- End sub-table -->
     </form>
@@ -624,6 +631,15 @@ ENDSCRIPT
 ENDBLOCK
     return $contactblock;
 }
+
+sub forgotpwdisplay {
+    my ($lt) = @_;
+    my $prompt_for_resetpw = 1; 
+    if ($prompt_for_resetpw) {
+        return '<br />&nbsp;&nbsp;&nbsp;<a href="/adm/resetpw">'.$lt->{'forgotpw'}.'</a></b><br /><br />';
+    }
+    return;
+}
  
 
 1;