--- loncom/interface/lonsupportreq.pm 2004/07/19 16:35:12 1.6
+++ loncom/interface/lonsupportreq.pm 2004/09/13 13:31:52 1.9
@@ -544,17 +544,29 @@ Date/Time: $reporttime
$bodytag
A support request has been sent to $to
END
- } else {
- $to = 'helpdesk@lon-capa.org';
- $r->print(<print(<
+
+ LON-CAPA support request recorded
+
+$bodytag
+ A support request has been sent to $to
+END
+ } else {
+ $r->print(<
LON-CAPA support request recorded
$bodytag
Warning: Problem with support e-mail address
-As the e-mail address provided for this LON-CAPA server ($to) does not appear to be a valid e-mail address, your support request has not been sent to the LON-CAPA support staff at your institution. Instead a copy has been sent to the LON-CAPA support team at Michigan State University.
+As the e-mail address provided for this LON-CAPA server ($to) does not appear to be a valid e-mail address, your support request has not been sent to the LON-CAPA support staff or administrator at your institution. Instead a copy has been sent to the LON-CAPA support team at Michigan State University.
END
+ $to = 'helpdesk@lon-capa.org';
+ }
}
if (defined($ENV{'form.email'})) {
if ($ENV{'form.email'} =~ m/^[^\@]+\@[^\@]+$/) {
@@ -737,7 +749,6 @@ sub build_code_selections {
}
$$idlist{$$codetitles[0]} = join('","',@contents);
$$idnums{$$codetitles[0]} = scalar(@contents);
- print STDERR "idnums for {$$codetitles[0] is $$idnums{$$codetitles[0]}\n";
if (defined($$cat_titles{$$codetitles[0]})) {
$$idlist_titles{$$codetitles[0]} = join('","',@contents_titles);
}
@@ -755,7 +766,6 @@ sub build_code_selections {
}
$$idlist{$$codetitles[1]}{$key_a} = join('","',@sorted_a);
$$idnums{$$codetitles[1]}{$key_a} = scalar(@sorted_a);
- print STDERR "idnums for {$$codetitles[1] and $key_a is $$idnums{$$codetitles[1]}{$key_a}\n";
if (defined($$cat_titles{$$codetitles[1]})) {
$$idlist_titles{$$codetitles[1]}{$key_a} = join('","',@sorted_a_titles);
}
@@ -837,7 +847,6 @@ sub recurse_list {
if ($num == 0) {
if (!grep/^$$codes{$cid}{$$codetitles[0]}$/,@{$$idarrays{$$codetitles[0]}}) {
push @{$$idarrays{$$codetitles[0]}}, $$codes{$cid}{$$codetitles[0]};
- print STDERR "Adding $$codes{$cid}{$$codetitles[0]} to $$codetitles[0]\n";
}
} elsif ($num == 1) {
if (defined($$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}})) {