loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.84, 2000/12/29 21:52:19	version 1.86, 2001/01/05 20:06:07
Line 258 sub appenv {	Line 258 sub appenv {
return 'error';	return 'error';
}	}
my $newname;	my $newname;
	flock($fh,'LOCK_EX');
foreach $newname (keys %newenv) {	foreach $newname (keys %newenv) {
print $fh "$newname=$newenv{$newname}\n";	print $fh "$newname=$newenv{$newname}\n";
}	}
	$fh->close();
}	}
return 'ok';	return 'ok';
}	}
Line 1325 sub createcourse {	Line 1327 sub createcourse {
my ($udom,$description,$url)=@_;	my ($udom,$description,$url)=@_;
$url=&declutter($url);	$url=&declutter($url);
my $cid='';	my $cid='';
unless ($cid=$ENV{'request.course.id'}) {
return 'not_in_class';
}
unless (&allowed('ccc',$ENV{'user.domain'})) {	unless (&allowed('ccc',$ENV{'user.domain'})) {
return 'refused';	return 'refused';
}	}