--- loncom/interface/lonsupportreq.pm 2004/07/19 16:35:12 1.6
+++ loncom/interface/lonsupportreq.pm 2004/09/09 05:58:42 1.8
@@ -545,7 +545,6 @@ $bodytag
A support request has been sent to $to
END
} else {
- $to = 'helpdesk@lon-capa.org';
$r->print(<
@@ -555,6 +554,7 @@ $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.
END
+ $to = 'helpdesk@lon-capa.org';
}
if (defined($ENV{'form.email'})) {
if ($ENV{'form.email'} =~ m/^[^\@]+\@[^\@]+$/) {
@@ -737,7 +737,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 +754,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 +835,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]}})) {