loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/lonhomework.pm between versions 1.252 and 1.253

version 1.252, 2006/06/20 05:10:00	version 1.253, 2006/06/24 01:28:17
Line 621 sub setuppermissions {	Line 621 sub setuppermissions {
return '';	return '';
}	}

	sub unset_permissions {
	undef($Apache::lonhomework::queuegrade);
	undef($Apache::lonhomework::modifygrades);
	undef($Apache::lonhomework::viewgrades);
	undef($Apache::lonhomework::browse);
	}

sub setupheader {	sub setupheader {
my $request=$_[0];	my $request=$_[0];
&Apache::loncommon::content_type($request,'text/html');	&Apache::loncommon::content_type($request,'text/html');
Line 1020 sub handler {	Line 1027 sub handler {
if ($Apache::lonhomework::browse ne 'F' &&	if ($Apache::lonhomework::browse ne 'F' &&
$env{'request.state'} ne "construct") {	$env{'request.state'} ne "construct") {
#should know where we are, so ask	#should know where we are, so ask
$request->internal_redirect('/adm/ambiguous'); return OK;	&unset_permissions();
	$request->internal_redirect('/adm/ambiguous');
	return OK;
}	}
}	}
if (&setupheader($request)) { return OK; }	if (&setupheader($request)) {
	&unset_permissions();
	return OK;
	}
&Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:$Apache::lonhomework::modifygrades:$Apache::lonhomework::queuegrade");	&Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:$Apache::lonhomework::modifygrades:$Apache::lonhomework::queuegrade");
&Apache::lonxml::debug("Problem Mode ".$env{'form.problemmode'});	&Apache::lonxml::debug("Problem Mode ".$env{'form.problemmode'});
my ($symb) = &Apache::lonxml::whichuser();	my ($symb) = &Apache::lonxml::whichuser();
Line 1057 sub handler {	Line 1069 sub handler {
#&Apache::lonxml::debug("Spent $td seconds processing");	#&Apache::lonxml::debug("Spent $td seconds processing");
# always turn off debug messages	# always turn off debug messages
$Apache::lonxml::debug=0;	$Apache::lonxml::debug=0;
	&unset_permissions();
return OK;	return OK;

}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.252
changed lines
	Added in v.1.253