--- loncom/interface/loncommon.pm 2004/07/19 17:50:53 1.200 +++ loncom/interface/loncommon.pm 2004/07/26 21:57:27 1.203 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.200 2004/07/19 17:50:53 matthew Exp $ +# $Id: loncommon.pm,v 1.203 2004/07/26 21:57:27 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -650,7 +650,7 @@ sub help_open_menu { $width = 620 if (not defined $width); $height = 600 if (not defined $height); my $link=''; - my $title = &mt('Choose your help'); + my $title = &mt('Get help'); my $origurl = $ENV{'REQUEST_URI'}; my $timestamp = time; foreach (\$color,\$function,\$topic,\$component_help,\$faq,\$bug,\$origurl) { @@ -690,6 +690,19 @@ function helpMenu(caller) { (Help Menu) ENDTEMPLATE + if ($component_help) { + if (!$text) { + $template=&help_open_topic($component_help,undef,$stayOnPage, + $width,$height).' '.$template; + } else { + my $help_text; + $help_text=&Apache::lonnet::unescape($topic); + $template='
'. + &help_open_topic($component_help,$help_text,$stayOnPage, + $width,$height).''.$template. + '
'; + } + } if ($text ne '') { $template.='' }; return $template; } @@ -2543,7 +2556,7 @@ $upperleft $realm  -
+
ENDBODY }