loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.83, 2003/03/13 20:46:36	version 1.84, 2003/03/13 20:52:47
Line 1570 Main handler. Calls &assessparms and &c	Line 1570 Main handler. Calls &assessparms and &c

##################################################	##################################################
##################################################	##################################################
use Data::Dumper;
sub handler {	sub handler {
my $r=shift;	my $r=shift;

Line 1581 sub handler {	Line 1581 sub handler {
}	}
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});	&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	# ----------------------------------------------------- Needs to be in a course

if (($ENV{'request.course.id'}) &&	if (($ENV{'request.course.id'}) &&