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.2 and 1.10

version 1.2, 2005/01/16 08:21:49	version 1.10, 2016/03/17 15:10:10
Line 4	Line 4
<message_text>Select </message_text>	<message_text>Select </message_text>
</message>	</message>
<choices variable="harry">	<choices variable="harry">
<choice computer='1' nextstate="Student">Reset times on one or more maps for a single student.</choice>	<choice computer='1' nextstate="Student">Reset times on one or more folders/maps, resources or the course for a single student.</choice>
<choice computer='0' nextstate="Class">Reset times on a single map for a section or whole clase.</choice>	<choice computer='0' nextstate="Class">Reset times on a single folder/map, resource or the course for a section or the whole class.</choice>
</choices>	</choices>
</state>	</state>
<state name="Student" title="Select Student">	<state name="Student" title="Select Student">
Line 17	Line 17

<state name="SelectAccess">	<state name="SelectAccess">
<message nextstate="ConfirmStu">	<message nextstate="ConfirmStu">
<message_text>This is a list of maps and times they were accessed, plese select those you want deleted.</message_text>	<message_text>This is a list of first access times and what was accessed, please select those you want deleted.</message_text>
</message>	</message>
<choices variable='delete' multichoice='true'>	<choices variable='delete' multichoice='true'>
<exec>	<exec>
my ($uname,$udom,$sec,$fullname)=split(':',$helper->{'VARS'}{'stu1'});	my ($uname,$udom,$sec,$fullname)=split(':',$helper->{'VARS'}{'stu1'});
my %times=&Apache::lonnet::dump('firstaccesstimes',$udom,$uname,	my %times=&Apache::lonnet::dump('firstaccesstimes',$udom,$uname,
"^$ENV{'request.course.id'}\0");	"^$env{'request.course.id'}\0");
foreach my $res (sort(keys(%times))) {	foreach my $res (sort(keys(%times))) {
my (undef,$symb)=split("\0",$res);	my (undef,$symb)=split("\0",$res);
my $escsymb=&Apache::lonnet::escape($symb);	my $escsymb=&Apache::lonnet::escape($symb);
my $title=&Apache::lonnet::gettitle($symb);	my $title =
	($symb ne 'course') ? &Apache::lonnet::gettitle($symb)
	: $env{'course.'.$env{'request.course.id'}.'.description'};
my $time=&Apache::lonlocal::locallocaltime($times{$res});	my $time=&Apache::lonlocal::locallocaltime($times{$res});
my $description="<a href='/adm/navmaps?postsymb=".&Apache::lonnet::escape($symb)."'>$title</a> on $time";	my $description="<a href='/adm/navmaps?postsymb=".&Apache::lonnet::escape($symb)."'>$title</a> on $time";
push(@{$state->{CHOICES}},[$description,$escsymb]);	push(@{$state->{CHOICES}},[$description,$escsymb]);
Line 45	Line 47
if (!$fullname) { $fullname="$uname\@$udom"; }	if (!$fullname) { $fullname="$uname\@$udom"; }
return '<li>'.$fullname.'</li>';	return '<li>'.$fullname.'</li>';
</eval>	</eval>
<message><message_text></ul> for maps <ul></message_text></message>	<message><message_text></ul> for <ul></message_text></message>
<eval>	<eval>
my $list;	my $list;
my @symbs=split(/\\|\\|\\|/,$helper->{'VARS'}{'delete'});	my @symbs=split(/\\|\\|\\|/,$helper->{'VARS'}{'delete'});
foreach my $escsymb (@symbs) {	foreach my $escsymb (@symbs) {
my $symb=&Apache::lonnet::unescape($escsymb);	my $symb=&Apache::lonnet::unescape($escsymb);
$list.='<li>'.&Apache::lonnet::gettitle($symb).'</li>';	my $title =
	($symb ne 'course') ? &Apache::lonnet::gettitle($symb)
	: $env{'course.'.$env{'request.course.id'}.'.description'};
	$list.='<li>'.$title.'</li>';
}	}
return $list;	return $list;
</eval>	</eval>
Line 60	Line 65
<state name="FinishStu" title="Processing">	<state name="FinishStu" title="Processing">
<final>	<final>
<finalcode>	<finalcode>
&Apache::lonnet::logthis($helper->{'VARS'}{'delete'});
if ($helper->{'STATE'} ne 'FinishStu') { return; }	if ($helper->{'STATE'} ne 'FinishStu') { return; }
my $result;	my $result;
my $courseid=$ENV{'request.course.id'};	my $courseid=$env{'request.course.id'};
my ($uname,$udom,$sec,$fullname)=split(':',$helper->{'VARS'}{'stu1'});	my ($uname,$udom,$sec,$fullname)=split(':',$helper->{'VARS'}{'stu1'});
&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);
$result.="Removing access time from ".	$result.="Removing access time from ".
&Apache::lonnet::gettitle($symb).": ".$res.'</li><li>';	$title.": ".$res.'</li><li>';
	if ($res eq 'ok') {
	if ($symb ne 'course') {
	my $what = [];
	my ($storeunder,@recurseup,$recursed);
	my $mapp = &Apache::lonnet::deversion((
	&Apache::lonnet::decode_symb($symb))[2]);
	if ($symb =~ /\.(page\|sequence)$/) {
	$storeunder = $env{'request.course.id'}.'.'.$mapp.'___(all).0.interval';
	$what = [$storeunder,'map'];
	} else {
	$storeunder = $env{'request.course.id'}.'.'.$symb.'.0.interval';
	$what = [$storeunder,'resource'];
	}
	&Apache::lonnet::del('timerinterval',[$key],$udom,$uname);
	my $userreply=&Apache::lonnet::resdata($uname,$udom,'user',$mapp,
	\$recursed,\@recurseup,
	$env{'request.course.id'},
	'.','0.interval',($what));
	if (ref($userreply) eq 'ARRAY') {
	if ($userreply->[0] =~ /^\d+$/) {
	if (($userreply->[1] eq 'map') \|\| ($userreply->[1] eq 'resource')) {
	my %storecontent=($storeunder => $userreply->[0],
	$storeunder.'.type' => 'date_interval');
	&Apache::lonnet::del
	('resourcedata',[keys(%storecontent)],$udom,$uname);
	&Apache::lonparmset::log_parmset(\%storecontent,1,$uname,$udom);
	}
	}
	}
	}
	}
}	}
$result=~s/<li>$//;	$result=~s/<li>$//;
return $result;	return $result;
Line 82	Line 121

<state name="Class">	<state name="Class">
<message nextstate="SelectMap">	<message nextstate="SelectMap">
<message_text>Select:<br /></message_text>
</message>	</message>
<student variable='stu1' coursepersonnel='true' activeonly='true' multichoice='true' />	<student variable='stu1' coursepersonnel='true' activeonly='true' multichoice='true' />
</state>	</state>

<state name="SelectMap" title="Select a map">	<state name="SelectMap" title="Select a folder/map">
<message><message_text>Choose a resource</message_text></message>	<resource variable="res2" includecourse="true">
<resource variable="res2">	<filterfunc>return (($res->is_map() && $res->map_contains_problem())
<filterfunc>return $res->is_map()</filterfunc>	\|\|$res->is_problem() );</filterfunc>
<valuefunc>return $res->symb()</valuefunc>	<valuefunc>return $res->symb()</valuefunc>
<nextstate>ShowPlan</nextstate>	<nextstate>ShowPlan</nextstate>
</resource>	</resource>
Line 121	Line 159
if ($helper->{'STATE'} ne 'FINISH') { return; }	if ($helper->{'STATE'} ne 'FINISH') { return; }
my $result;	my $result;
my $symb=$helper->{'VARS'}{'res2'};	my $symb=$helper->{'VARS'}{'res2'};
my $key=$ENV{'request.course.id'}."\0".$symb;	my $key=$env{'request.course.id'}."\0".$symb;
my @names=split(/\\|\\|\\|/,$helper->{'VARS'}{'stu1'});	my @names=split(/\\|\\|\\|/,$helper->{'VARS'}{'stu1'});
	my $what = [];
	my ($storeunder,@recurseup,$recursed);
	my $mapp = &Apache::lonnet::deversion((
	&Apache::lonnet::decode_symb($symb))[2]);
	if ($symb =~ /\.(page\|sequence)$/) {
	$storeunder = $env{'request.course.id'}.'.'.$mapp.'___(all).0.interval';
	$what = [$storeunder,'map'];
	} else {
	$storeunder = $env{'request.course.id'}.'.'.$symb.'.0.interval';
	$what = [$storeunder,'resource'];
	}
foreach my $name (@names) {	foreach my $name (@names) {
my ($uname,$udom,$sec,$fullname)=split(':',$name);	my ($uname,$udom,$sec,$fullname)=split(':',$name);
if (!$fullname) { $fullname="$uname\@$udom"; }	if (!$fullname) { $fullname="$uname\@$udom"; }
Line 134	Line 183
$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);
	my $userreply=&Apache::lonnet::resdata($uname,$udom,'user',$mapp,
	\$recursed,\@recurseup,
	$env{'request.course.id'},
	'.','0.interval',($what));
	if (ref($userreply) eq 'ARRAY') {
	if ($userreply->[0] =~ /^\d+$/) {
	if (($userreply->[1] eq 'map') \|\| ($userreply->[1] eq 'resource')) {
	my %storecontent=($storeunder => $userreply->[0],
	$storeunder.'.type' => 'date_interval');
	my $reply = &Apache::lonnet::del
	('resourcedata',[keys(%storecontent)],$udom,$uname);
	&Apache::lonparmset::log_parmset(\%storecontent,1,$uname,$udom);
	}
	}
	}
	}
}	}
$result.="</li>\n<li>";	$result.="</li>\n<li>";
}	}

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

Removed from v.1.2
changed lines
	Added in v.1.10