--- loncom/interface/lonsupportreq.pm 2007/09/05 05:46:19 1.44
+++ loncom/interface/lonsupportreq.pm 2007/12/04 04:43:21 1.45
@@ -1,5 +1,5 @@
#
-# $Id: lonsupportreq.pm,v 1.44 2007/09/05 05:46:19 raeburn Exp $
+# $Id: lonsupportreq.pm,v 1.45 2007/12/04 04:43:21 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -171,11 +171,8 @@ END
my ($sec,$grp) = split(/:/,$section);
$groupid{$sec} = $grp;
}
- my $codedom = $Apache::lonnet::perlvar{'lonDefDomain'};
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['codedom']);
- if (exists($env{'form.codedom'})) {
- $codedom = $env{'form.codedom'};
- }
+ my $codedom = &get_domain();
my $details_title;
if ($codedom) {
$details_title = '
('.$codedom.')';
@@ -197,9 +194,6 @@ function initialize_codes() {
return;
}
|;
- if ($cdom) {
- $codedom = $cdom;
- }
if ($cnum) {
$coursecodes{$cnum} = $ccode;
if ($ccode eq '') {
@@ -450,7 +444,10 @@ sub print_request_receipt {
my @cookievars = ('lonID');
my $admin = $Apache::lonnet::perlvar{'lonAdminMail'};
- my $to = $Apache::lonnet::perlvar{'lonSupportEMail'};
+ my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
+ my $defdom = &get_domain();
+ my $to = &Apache::loncommon::build_recipient_list(undef,'helpdeskmail',
+ $defdom,$origmail);
my $from = $admin;
my $reporttime = &Apache::lonlocal::locallocaltime(time);
my @formvars = ('username','email','uname','udom','sourceurl','phone','section','coursecode','title','subject','description','screenshot');
@@ -547,18 +544,35 @@ END
if ($r->uri eq '/adm/helpdesk') {
&print_header($r,$url,'process');
}
- if ($to =~ m/^[^\@]+\@[^\@]+$/) {
- $r->print('