loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.194, 2004/07/03 18:55:16
+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;
- #    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";