loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.193, 2004/07/03 18:49:42
+version 1.195, 2004/07/03 19:12:41
  Line 651  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";