--- loncom/interface/resetpw.pm 2012/02/08 15:19:46 1.23.2.2.2.1
+++ loncom/interface/resetpw.pm 2012/02/17 03:28:25 1.23.2.2.2.4
@@ -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.1 2012/02/08 15:19:46 raeburn Exp $
+# $Id: resetpw.pm,v 1.23.2.2.2.4 2012/02/17 03:28:25 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -66,9 +66,13 @@ sub handler {
return OK;
}
my $contact_name = &mt('LON-CAPA helpdesk');
- my $contact_email = $r->dir_config('lonSupportEMail');
+ my $origmail = $r->dir_config('lonSupportEMail');
my $server = $r->dir_config('lonHostID');
my $defdom = &Apache::lonnet::default_login_domain();
+ my $contacts =
+ &Apache::loncommon::build_recipient_list(undef,'helpdeskmail',
+ $defdom,$origmail);
+ my ($contact_email) = split(/,/,$contacts);
my $handle = &Apache::lonnet::check_for_valid_session($r);
my $lonidsdir=$r->dir_config('lonIDsDir');
if ($handle ne '') {
@@ -209,12 +213,12 @@ sub get_uname {
$value{'useremail'} = $useremail;
}
my $msg = '
'.&mt('To be able to reset a forgotten password:')
- .'