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

[bowersj2]

bowersj2		Thu Mar 13 15:52:47 2003 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  Correct fallacious lonparmset commit. 
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.83 loncom/interface/lonparmset.pm:1.84
--- loncom/interface/lonparmset.pm:1.83	Thu Mar 13 15:46:36 2003
+++ loncom/interface/lonparmset.pm	Thu Mar 13 15:52:47 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.83 2003/03/13 20:46:36 bowersj2 Exp $
+# $Id: lonparmset.pm,v 1.84 2003/03/13 20:52:47 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1570,7 +1570,7 @@
 
 ##################################################
 ##################################################
-    use Data::Dumper;
+
 sub handler {
     my $r=shift;
 
@@ -1581,15 +1581,6 @@
     }
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
 
-    $r->content_type('text/html');
-    $r->send_http_header;
-    $r->print("\n\n");
-    # Temp for reverse-engineering purposes.
-    for (keys %ENV) {
-        if ($_ =~ /^form\./) {
-            $r->print($_ . " " . Dumper($ENV{$_}) . "<br />\n");
-        }
-    }
 # ----------------------------------------------------- Needs to be in a course
 
     if (($ENV{'request.course.id'}) &&