loncom/html/adm/helper/resettimes.helper - diff

Return to resettimes.helper CVS log

Up to [LON-CAPA] / loncom / html / adm / helper

Diff for /loncom/html/adm/helper/resettimes.helper between versions 1.8 and 1.9

version 1.8, 2009/02/16 15:47:21	version 1.9, 2012/04/01 16:12:42
Line 72	Line 72
&Apache::lonnet::logthis($helper->{'VARS'}{'delete'});	&Apache::lonnet::logthis($helper->{'VARS'}{'delete'});
foreach my $escsymb (split(/\\|\\|\\|/,$helper->{'VARS'}{'delete'})) {	foreach my $escsymb (split(/\\|\\|\\|/,$helper->{'VARS'}{'delete'})) {
my $symb=&Apache::lonnet::unescape($escsymb);	my $symb=&Apache::lonnet::unescape($escsymb);
	my $key = "$courseid\0$symb";
	my $title =
	($symb ne 'course') ? &Apache::lonnet::gettitle($symb)
	: $env{'course.'.$courseid.'.description'};
my $res=&Apache::lonnet::del('firstaccesstimes',	my $res=&Apache::lonnet::del('firstaccesstimes',
["$courseid\0$symb"],$udom,$uname);	[$key],$udom,$uname);
my $title =	$result.="Removing access time from ".
($symb ne 'course') ? &Apache::lonnet::gettitle($symb)	$title.": ".$res.'</li><li>';
: $env{'course.'.$env{'request.course.id'}.'.description'};	if ($res eq 'ok') {
$result.="Removing access time from ".	&Apache::lonnet::del('timerinterval',[$key],$udom,$uname);
$title.": ".$res.'</li><li>';	}
}	}
$result=~s/<li>$//;	$result=~s/<li>$//;
return $result;	return $result;
Line 140	Line 144
$result.="Removing access times ".	$result.="Removing access times ".
&Apache::lonlocal::locallocaltime($times{$key}).	&Apache::lonlocal::locallocaltime($times{$key}).
" found for student ".$fullname.": ";	" found for student ".$fullname.": ";
$result.=&Apache::lonnet::del('firstaccesstimes',	my $delres=&Apache::lonnet::del('firstaccesstimes',
[$key],$udom,$uname);	[$key],$udom,$uname);
	$result.=$delres;
	if ($delres eq 'ok') {
	&Apache::lonnet::del('timerinterval',
	[$key],$udom,$uname);
	}
}	}
$result.="</li>\n<li>";	$result.="</li>\n<li>";
}	}

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

Removed from v.1.8
changed lines
	Added in v.1.9