--- loncom/interface/lonparmset.pm 2003/01/19 11:55:14 1.82 +++ loncom/interface/lonparmset.pm 2003/03/13 20:46:36 1.83 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.82 2003/01/19 11:55:14 www Exp $ +# $Id: lonparmset.pm,v 1.83 2003/03/13 20:46:36 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1562,7 +1562,7 @@ ENDENV =pod -=item handler +=item * handler Main handler. Calls &assessparms and &crsenv subroutines. @@ -1570,6 +1570,7 @@ Main handler. Calls &assessparms and &c ################################################## ################################################## + use Data::Dumper; sub handler { my $r=shift; @@ -1579,6 +1580,16 @@ sub handler { return OK; } &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{$_}) . "
\n"); + } + } # ----------------------------------------------------- Needs to be in a course if (($ENV{'request.course.id'}) &&