[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.8 and 1.10

version 1.8, 2009/02/16 15:47:21 version 1.10, 2016/03/17 15:10:10
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 ".                  if ($symb ne 'course') {
       $title.": ".$res.'</li><li>';                      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 129 Line 161
         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 140 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>";
  }   }
Removed from v.1.8  
changed lines
  Added in v.1.10

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