--- loncom/interface/lonhelpmenu.pm 2004/12/04 21:15:33 1.16
+++ loncom/interface/lonhelpmenu.pm 2004/12/20 19:58:41 1.17
@@ -78,9 +78,64 @@ sub display_help_banner {
my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg');
my $location=&Apache::loncommon::lonhttpdurl("/adm");
if (($tablecolor eq '') || ($tablecolor eq '#FFFFFF')) {
- $tablecolor = '#CCCCFF';
+ $tablecolor = '#EEEE99';
}
+ my $scripttag = '';
+ if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {
+ my $displayurl = &Apache::lonnet::escape($origurl);
+ $scripttag = (<<"SCRIPT_ONE");
+
+SCRIPT_TWO
+ }
$r->print(<
@@ -93,6 +148,7 @@ sub display_help_banner {
a:hover {text-decoration: underline; color: $vlinkcolor; }
-->
+$scripttag
$bodytag
END
@@ -130,7 +186,7 @@ END
}
if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {
$r->print('
- Ask helpdesk | ');
+ Ask helpdesk | ');
}
if ($faq && $ENV{'user.adv'}) {
$r->print(<