--- loncom/interface/loncommon.pm	2004/07/03 18:49:42	1.193
+++ loncom/interface/loncommon.pm	2004/07/03 18:55:16	1.194
@@ -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.194 2004/07/03 18:55:16 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -651,22 +651,21 @@ 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);
-    }
+#    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($$_);
     }