loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.82, 2003/01/19 11:55:14	version 1.83, 2003/03/13 20:46:36
Line 1562 ENDENV	Line 1562 ENDENV

=pod	=pod

=item handler	=item * handler

Main handler. Calls &assessparms and &crsenv subroutines.	Main handler. Calls &assessparms and &crsenv subroutines.

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 1579 sub handler {	Line 1580 sub handler {
return OK;	return OK;
}	}
&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'}) &&