[LON-CAPA-cvs] cvs: loncom(loncapaMITrelate_1) /interface resetpw.pm

[raeburn]

raeburn		Tue Feb 14 15:48:56 2012 EDT

  Modified files:              (Branch: loncapaMITrelate_1)
    /loncom/interface	resetpw.pm 
  Log:
  - Customization for MITrelate.
    - &send_mail() takes additional (sixth) arg  -- text to use in 
      subject line of e-mail sent to user.
  
  
Index: loncom/interface/resetpw.pm
diff -u loncom/interface/resetpw.pm:1.23.2.2.2.2 loncom/interface/resetpw.pm:1.23.2.2.2.3
--- loncom/interface/resetpw.pm:1.23.2.2.2.2	Tue Feb 14 00:34:48 2012
+++ loncom/interface/resetpw.pm	Tue Feb 14 15:48:55 2012
@@ -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_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".