--- loncom/interface/lonhelpmenu.pm 2004/08/14 01:14:58 1.10
+++ loncom/interface/lonhelpmenu.pm 2004/09/13 13:31:52 1.11
@@ -128,7 +128,7 @@ END
$r->print('
Topic help ');
}
- if ($requestmail) {
+ if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {
$r->print('
Ask helpdesk | ');
}
@@ -209,7 +209,7 @@ sub display_help_mainpage {
$bodytag
END
$r->print($lt{'chen'});
- if ($requestmail) {
+ if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {
$r->print(', '.$lt{'orto'});
} else {
$r->print(".");
@@ -231,13 +231,12 @@ END
}
}
}
- if ($requestmail) {
+ if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {
$r->print("
$lt{'suhr'}
-
");
}
if ($faqbaseurl && $ENV{'user.adv'}) {
@@ -245,6 +244,7 @@ END
$faq = '1';
}
$r->print("
+
$lt{'tfaq'}