[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.10 and 1.11

version 1.10, 2016/03/17 15:10:10 version 1.11, 2016/05/31 22:04:14
Line 70 Line 70
         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'});
           my $needsdeval;
         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 $key = "$courseid\0$symb";
Line 103 Line 104
                             if (($userreply->[1] eq 'map') || ($userreply->[1] eq 'resource')) {                              if (($userreply->[1] eq 'map') || ($userreply->[1] eq 'resource')) {
                                 my %storecontent=($storeunder         => $userreply->[0],                                  my %storecontent=($storeunder         => $userreply->[0],
                                                   $storeunder.'.type' => 'date_interval');                                                    $storeunder.'.type' => 'date_interval');
                                 &Apache::lonnet::del                                  if (&Apache::lonnet::del
                                     ('resourcedata',[keys(%storecontent)],$udom,$uname);                                         ('resourcedata',[keys(%storecontent)],$udom,$uname) eq 'ok') {
                                 &Apache::lonparmset::log_parmset(\%storecontent,1,$uname,$udom);                                      &Apache::lonparmset::log_parmset(\%storecontent,1,$uname,$udom);
                                       $needsdeval = 1;
                                   }
                             }                              }
                         }                          }
                     }                      }
                 }                  }
             }              }
  }   }
           if ($needsdeval) {
               &Apache::lonnet::devalidateuserresdata($uname,$udom);
           }
         $result=~s/<li>$//;          $result=~s/<li>$//;
         return $result;          return $result;
       </finalcode>        </finalcode>
Line 172 Line 178
             $storeunder = $env{'request.course.id'}.'.'.$symb.'.0.interval';              $storeunder = $env{'request.course.id'}.'.'.$symb.'.0.interval';
             $what = [$storeunder,'resource'];              $what = [$storeunder,'resource'];
         }          }
           my %donedeval;
  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 198 Line 205
                             if (($userreply->[1] eq 'map') || ($userreply->[1] eq 'resource')) {                              if (($userreply->[1] eq 'map') || ($userreply->[1] eq 'resource')) {
                                 my %storecontent=($storeunder         => $userreply->[0],                                  my %storecontent=($storeunder         => $userreply->[0],
                                                   $storeunder.'.type' => 'date_interval');                                                    $storeunder.'.type' => 'date_interval');
                                 my $reply = &Apache::lonnet::del                                  if (&Apache::lonnet::del
                                     ('resourcedata',[keys(%storecontent)],$udom,$uname);                                         ('resourcedata',[keys(%storecontent)],$udom,$uname) eq 'ok') {
                                 &Apache::lonparmset::log_parmset(\%storecontent,1,$uname,$udom);                                      &Apache::lonparmset::log_parmset(\%storecontent,1,$uname,$udom);
                                       unless ($donedeval{$uname.':'.$udom}) {
                                           &Apache::lonnet::devalidateuserresdata($uname,$udom);
                                           $donedeval{$uname.':'.$udom} = 1;
                                       }
                                   }
                             }                              }
                         }                          }
                     }                      }
Removed from v.1.10  
changed lines
  Added in v.1.11

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