loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.160, 2004/01/15 03:44:01	version 1.161, 2004/01/28 15:45:44
Line 211 sub check_access {	Line 211 sub check_access {
&Apache::lonxml::debug("time:".time);	&Apache::lonxml::debug("time:".time);

my $allowed=&check_ip_acc(&Apache::lonnet::EXT("resource.$id.acc"));	my $allowed=&check_ip_acc(&Apache::lonnet::EXT("resource.$id.acc"));
if (!$allowed) {	if (!$allowed && ($Apache::lonhomework::browse ne 'F')) {
$status='INVALID_ACCESS';	$status='INVALID_ACCESS';
$date=&mt("can not be accessed from your location.");	$date=&mt("can not be accessed from your location.");
return($status,$date);	return($status,$date);
Line 557 sub renderpage {	Line 557 sub renderpage {
my ($request,$file) = @_;	my ($request,$file) = @_;

my (@targets) = &get_target();	my (@targets) = &get_target();
	&Apache::lonhomework::showhashsubset(\%ENV,'form.');
&Apache::lonxml::debug("Running targets ".join(':',@targets));	&Apache::lonxml::debug("Running targets ".join(':',@targets));
foreach my $target (@targets) {	foreach my $target (@targets) {
#my $t0 = [&gettimeofday()];	#my $t0 = [&gettimeofday()];
Line 705 sub handler {	Line 706 sub handler {
my $request=$_[0];	my $request=$_[0];

$Apache::lonxml::debug=$ENV{'user.debug'};	$Apache::lonxml::debug=$ENV{'user.debug'};

if (&setupheader($request)) { return OK; }	if (&setupheader($request)) { return OK; }
$ENV{'request.uri'}=$request->uri;	$ENV{'request.uri'}=$request->uri;