[BACK]Return to resettimes.helper CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / html / adm / helper

Diff for /loncom/html/adm/helper/resettimes.helper between versions 1.11 and 1.11.2.1

version 1.11, 2016/05/31 22:04:14 version 1.11.2.1, 2020/10/01 17:14:31
Line 84 Line 84
             if ($res eq 'ok') {              if ($res eq 'ok') {
                 if ($symb ne 'course') {                  if ($symb ne 'course') {
                     my $what = [];                      my $what = [];
                     my ($storeunder,@recurseup,$recursed);                      my $storeunder;
                     my $mapp = &Apache::lonnet::deversion((                      my $mapp = &Apache::lonnet::deversion((
                                    &Apache::lonnet::decode_symb($symb))[2]);                                     &Apache::lonnet::decode_symb($symb))[2]);
                     if ($symb =~ /\.(page|sequence)$/) {                      if ($symb =~ /\.(page|sequence)$/) {
Line 95 Line 95
                         $what = [$storeunder,'resource'];                          $what = [$storeunder,'resource'];
                     }                      }
                     &Apache::lonnet::del('timerinterval',[$key],$udom,$uname);                      &Apache::lonnet::del('timerinterval',[$key],$udom,$uname);
                     my $userreply=&Apache::lonnet::resdata($uname,$udom,'user',$mapp,                      my $userreply=&Apache::lonnet::resdata($uname,$udom,'user',($what));
                                                            \$recursed,\@recurseup,  
                                                            $env{'request.course.id'},  
                                                            '.','0.interval',($what));  
                     if (ref($userreply) eq 'ARRAY') {                      if (ref($userreply) eq 'ARRAY') {
                         if ($userreply->[0] =~ /^\d+$/) {                          if ($userreply->[0] =~ /^\d+$/) {
                             if (($userreply->[1] eq 'map') || ($userreply->[1] eq 'resource')) {                              if (($userreply->[1] eq 'map') || ($userreply->[1] eq 'resource')) {
Line 168 Line 165
         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 $what = [];
         my ($storeunder,@recurseup,$recursed);          my $storeunder;
         my $mapp = &Apache::lonnet::deversion((          my $mapp = &Apache::lonnet::deversion((
                        &Apache::lonnet::decode_symb($symb))[2]);                         &Apache::lonnet::decode_symb($symb))[2]);
         if ($symb =~ /\.(page|sequence)$/) {          if ($symb =~ /\.(page|sequence)$/) {
Line 196 Line 193
                 if ($delres eq 'ok') {                  if ($delres eq 'ok') {
                     &Apache::lonnet::del('timerinterval',                      &Apache::lonnet::del('timerinterval',
                                          [$key],$udom,$uname);                                           [$key],$udom,$uname);
                     my $userreply=&Apache::lonnet::resdata($uname,$udom,'user',$mapp,                      my $userreply=&Apache::lonnet::resdata($uname,$udom,'user',($what));
                                                            \$recursed,\@recurseup,  
                                                            $env{'request.course.id'},  
                                                            '.','0.interval',($what));  
                     if (ref($userreply) eq 'ARRAY') {                      if (ref($userreply) eq 'ARRAY') {
                         if ($userreply->[0] =~ /^\d+$/) {                          if ($userreply->[0] =~ /^\d+$/) {
                             if (($userreply->[1] eq 'map') || ($userreply->[1] eq 'resource')) {                              if (($userreply->[1] eq 'map') || ($userreply->[1] eq 'resource')) {
Removed from v.1.11  
changed lines
  Added in v.1.11.2.1

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