--- loncom/interface/loncommon.pm	2004/07/03 18:49:42	1.193
+++ loncom/interface/loncommon.pm	2004/07/12 17:02:07	1.198
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.193 2004/07/03 18:49:42 raeburn Exp $
+# $Id: loncommon.pm,v 1.198 2004/07/12 17:02:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -651,37 +651,24 @@ sub help_open_menu {
     my $title = &mt('Choose your help');
     my $origurl = $ENV{'REQUEST_URI'};
     my $timestamp = time;
-    my %formhash = ();
-    if ($ENV{'request.course.fn'}) {
-        open(FILE,">$ENV{'request.course.fn'}.formdata");
-        &get_unprocessed_cgi($ENV{'QUERY_STRING'},undef);
-        foreach (keys %ENV) {
-            if ($_ =~ m/^form\.(.+)$/) {
-                if (ref($ENV{$_}) eq 'ARRAY') {
-                    my $valstr = join(",",@{$ENV{$_}});
-                    print FILE "$1 = $valstr\n";
-                } else {
-                    print FILE "$1 = $ENV{$_}\n";
-                }
-            }
-        }
-        close(FILE);
-    }
     foreach (\$color,\$function,\$topic,\$component_help,\$faq,\$bug,\$origurl) {
         $$_ = &Apache::lonnet::escape($$_);
     }
 
-    if (!$stayOnPage)
-    {
+    if (!$stayOnPage) {
          $link = "javascript:helpMenu('open')";
-    }
-    else
-    {
+    } else {
         $link = "javascript:helpMenu('display')";
     }
-    my $banner_link = "/adm/helpmenu?page=banner&color=$color&function=$function&topic=$topic&component_help=$component_help&faq=$faq&bug=$bug&origurl=$origurl&stamp=$timestamp";
+    my $banner_link = "/adm/helpmenu?page=banner&color=$color&function=$function&topic=$topic&component_help=$component_help&faq=$faq&bug=$bug&origurl=$origurl&stamp=$timestamp&stayonpage=$stayOnPage";
     my $details_link = "/adm/helpmenu?page=body&color=$color&function=$function&topic=$topic&component_help=$component_help&faq=$faq&bug=$bug&origurl=$origurl&stamp=$timestamp";
-    my $template .= <<"ENDTEMPLATE";
+    my $template;
+    if ($text ne "") {
+	$template .= 
+  "<table bgcolor='#337733' cellspacing='1' cellpadding='1' border='0'><tr>".
+  "<td bgcolor='#448844'><a href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";
+    }
+    $template .= <<"ENDTEMPLATE";
  <script>
 function helpMenu(caller) {
     if (caller == 'open') {
@@ -701,6 +688,7 @@ function helpMenu(caller) {
  </script>
  <a href="$link" title="$title"><image src="/adm/lonMisc/smallFAQ.gif" border="0" alt="(Help Menu)" /></a>
 ENDTEMPLATE
+    if ($text ne '') { $template.='</td></tr></table>' };
     return $template;
 }
 
@@ -1893,6 +1881,9 @@ returns description of a specified copyr
 sub copyrightdescription {
     return &mt($cprtag{shift(@_)});
 }
+
+=pod
+
 =item * source_copyrightids() 
 
 returns list of all source copyrights