--- 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')) {