[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[raeburn]

raeburn		Sat Jul  3 14:55:16 2004 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  Disable trapping of form parameters present in request when page was generated. Intent is to retrieve these and pass them along in any support request generated using help support form.  Trapping disabled pending further discussion.   
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.193 loncom/interface/loncommon.pm:1.194
--- loncom/interface/loncommon.pm:1.193	Sat Jul  3 14:49:42 2004
+++ loncom/interface/loncommon.pm	Sat Jul  3 14:55:16 2004
@@ -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 @@
     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($$_);
     }