--- loncom/html/adm/helper/resettimes.helper 2016/05/31 22:04:14 1.11
+++ loncom/html/adm/helper/resettimes.helper 2020/10/01 17:14:31 1.11.2.1
@@ -84,7 +84,7 @@
if ($res eq 'ok') {
if ($symb ne 'course') {
my $what = [];
- my ($storeunder,@recurseup,$recursed);
+ my $storeunder;
my $mapp = &Apache::lonnet::deversion((
&Apache::lonnet::decode_symb($symb))[2]);
if ($symb =~ /\.(page|sequence)$/) {
@@ -95,10 +95,7 @@
$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));
+ my $userreply=&Apache::lonnet::resdata($uname,$udom,'user',($what));
if (ref($userreply) eq 'ARRAY') {
if ($userreply->[0] =~ /^\d+$/) {
if (($userreply->[1] eq 'map') || ($userreply->[1] eq 'resource')) {
@@ -168,7 +165,7 @@
my $key=$env{'request.course.id'}."\0".$symb;
my @names=split(/\|\|\|/,$helper->{'VARS'}{'stu1'});
my $what = [];
- my ($storeunder,@recurseup,$recursed);
+ my $storeunder;
my $mapp = &Apache::lonnet::deversion((
&Apache::lonnet::decode_symb($symb))[2]);
if ($symb =~ /\.(page|sequence)$/) {
@@ -196,10 +193,7 @@
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));
+ my $userreply=&Apache::lonnet::resdata($uname,$udom,'user',($what));
if (ref($userreply) eq 'ARRAY') {
if ($userreply->[0] =~ /^\d+$/) {
if (($userreply->[1] eq 'map') || ($userreply->[1] eq 'resource')) {