loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.84, 2003/03/13 20:52:47	version 1.85, 2003/03/20 18:03:14
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'}) &&