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.260 and 1.261

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

version 1.260, 2006/10/05 13:59:57	version 1.261, 2006/10/17 15:11:11
Line 393 sub check_access {	Line 393 sub check_access {
&Apache::lonxml::debug("checking for part :$id:");	&Apache::lonxml::debug("checking for part :$id:");
&Apache::lonxml::debug("time:".time);	&Apache::lonxml::debug("time:".time);

my ($symb)=&Apache::lonxml::whichuser();	my ($symb)=&Apache::lonnet::whichuser();
&Apache::lonxml::debug("symb:".$symb);	&Apache::lonxml::debug("symb:".$symb);
#if ($env{'request.state'} ne "construct" && $symb ne '') {	#if ($env{'request.state'} ne "construct" && $symb ne '') {
if ($env{'request.state'} ne "construct") {	if ($env{'request.state'} ne "construct") {
Line 604 sub setuppermissions {	Line 604 sub setuppermissions {

if ($Apache::lonhomework::browse eq 'F' &&	if ($Apache::lonhomework::browse eq 'F' &&
$env{'form.devalidatecourseresdata'} eq 'on') {	$env{'form.devalidatecourseresdata'} eq 'on') {
my (undef,$courseid) = &Apache::lonxml::whichuser();	my (undef,$courseid) = &Apache::lonnet::whichuser();
&Apache::lonnet::devalidatecourseresdata($env{"course.$courseid.num"},	&Apache::lonnet::devalidatecourseresdata($env{"course.$courseid.num"},
$env{"course.$courseid.domain"});	$env{"course.$courseid.domain"});
}	}
Line 1048 sub handler {	Line 1048 sub handler {
}	}
&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::lonnet::whichuser();
&Apache::lonxml::debug('symb is '.$symb);	&Apache::lonxml::debug('symb is '.$symb);
if ($env{'request.state'} eq "construct") {	if ($env{'request.state'} eq "construct") {
if ( -e $file ) {	if ( -e $file ) {

Removed from v.1.260
changed lines
	Added in v.1.261