--- loncom/interface/resetpw.pm	2012/02/14 00:34:48	1.23.2.2.2.2
+++ loncom/interface/resetpw.pm	2012/02/14 15:48:55	1.23.2.2.2.3
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Allow access to password changing via a token sent to user's e-mail. 
 #
-# $Id: resetpw.pm,v 1.23.2.2.2.2 2012/02/14 00:34:48 raeburn Exp $
+# $Id: resetpw.pm,v 1.23.2.2.2.3 2012/02/14 15:48:55 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -259,11 +259,14 @@ sub send_token {
 }
 
 sub send_mail {
-    my ($domdesc,$email,$mailmsg,$contact_name,$contact_email) = @_;
+    my ($domdesc,$email,$mailmsg,$contact_name,$contact_email,$subject) = @_;
+    if ($subject eq '') {
+        $subject = &mt('Your LON-CAPA account');
+    }
     my $outcome;
     my $requestmail = "To: $email\n".
                       "From: $contact_name <$contact_email>\n".
-                      "Subject: ".&mt('Your LON-CAPA account')."\n".
+                      "Subject: $subject\n".
                       "Content-type: text/plain\;charset=UTF-8\n".
                       "\n\n".$mailmsg."\n\n".
                       &mt('[_1] LON-CAPA support team',$domdesc)."\n".