loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.85, 2003/03/20 18:03: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 1583 sub handler {	Line 1581 sub handler {

$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$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'}) &&