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.87, 2003/04/18 15:24:53
Line 285 sub plink {	Line 285 sub plink {

sub startpage {	sub startpage {
my ($r,$id,$udom,$csec,$uname)=@_;	my ($r,$id,$udom,$csec,$uname)=@_;
$r->content_type('text/html');
$r->send_http_header;

my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','',	my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','',
'onUnload="pclose()"');	'onUnload="pclose()"');
Line 1562 ENDENV	Line 1560 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 1568 Main handler. Calls &assessparms and &c

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

Line 1579 sub handler {	Line 1578 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;

# ----------------------------------------------------- Needs to be in a course	# ----------------------------------------------------- Needs to be in a course

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