[LON-CAPA-cvs] cvs: loncom(loncapaMITrelate_1) /interface resetpw.pm
raeburn
raeburn at source.lon-capa.org
Tue Feb 14 10:48:56 EST 2012
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".
More information about the LON-CAPA-cvs
mailing list