--- loncom/interface/createaccount.pm 2008/07/09 17:30:59 1.14 +++ loncom/interface/createaccount.pm 2008/07/10 00:18:05 1.15 @@ -3,7 +3,7 @@ # institutional log-in ID (institutional authentication required - localauth # or kerberos) or an e-mail address. # -# $Id: createaccount.pm,v 1.14 2008/07/09 17:30:59 raeburn Exp $ +# $Id: createaccount.pm,v 1.15 2008/07/10 00:18:05 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -65,7 +65,11 @@ sub handler { } my $domdesc = &Apache::lonnet::domain($domain,'description'); my $contact_name = &mt('LON-CAPA helpdesk'); - my $contact_email = $r->dir_config('lonSupportEMail'); + my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; + my $contacts = + &Apache::loncommon::build_recipient_list(undef,'helpdeskmail', + $domain,$origmail); + my ($contact_email) = split(',',$contacts); my $lonhost = $r->dir_config('lonHostID'); my $include = $r->dir_config('lonIncludes'); my $start_page; @@ -131,6 +135,7 @@ sub handler { $domdesc,$courseid, $lonhost,$contact_email); if ($checkfail) { + $msg .= '