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

[raeburn]

raeburn		Thu Feb 16 22:18:08 2012 EDT

  Modified files:              
    /loncom/interface	resetpw.pm 
  Log:
  - Get contact e-mail address from domain configuration.
  - Default to lonSupportEMail from perlvars if none set.  
  
  
Index: loncom/interface/resetpw.pm
diff -u loncom/interface/resetpw.pm:1.26 loncom/interface/resetpw.pm:1.27
--- loncom/interface/resetpw.pm:1.26	Mon Nov 29 19:15:14 2010
+++ loncom/interface/resetpw.pm	Thu Feb 16 22:18:07 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.26 2010/11/29 19:15:14 raeburn Exp $
+# $Id: resetpw.pm,v 1.27 2012/02/16 22:18:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -66,9 +66,13 @@
         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 '') {