[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.2 and 1.3

version 1.2, 2005/01/16 08:21:49 version 1.3, 2005/04/07 06:56:22
Line 23 Line 23
       <exec>        <exec>
          my ($uname,$udom,$sec,$fullname)=split(':',$helper->{'VARS'}{'stu1'});           my ($uname,$udom,$sec,$fullname)=split(':',$helper->{'VARS'}{'stu1'});
          my %times=&Apache::lonnet::dump('firstaccesstimes',$udom,$uname,           my %times=&Apache::lonnet::dump('firstaccesstimes',$udom,$uname,
  "^$ENV{'request.course.id'}\0");   "^$env{'request.course.id'}\0");
          foreach my $res (sort(keys(%times))) {           foreach my $res (sort(keys(%times))) {
      my (undef,$symb)=split("\0",$res);       my (undef,$symb)=split("\0",$res);
      my $escsymb=&Apache::lonnet::escape($symb);       my $escsymb=&Apache::lonnet::escape($symb);
Line 63 Line 63
         &Apache::lonnet::logthis($helper->{'VARS'}{'delete'});          &Apache::lonnet::logthis($helper->{'VARS'}{'delete'});
         if ($helper->{'STATE'} ne 'FinishStu') { return; }          if ($helper->{'STATE'} ne 'FinishStu') { return; }
         my $result;          my $result;
         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'});
         foreach my $escsymb (split(/\|\|\|/,$helper->{'VARS'}{'delete'})) {          foreach my $escsymb (split(/\|\|\|/,$helper->{'VARS'}{'delete'})) {
Line 121 Line 121
         if ($helper->{'STATE'} ne 'FINISH') { return; }          if ($helper->{'STATE'} ne 'FINISH') { return; }
         my $result;          my $result;
         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'});
  foreach my $name (@names) {   foreach my $name (@names) {
     my ($uname,$udom,$sec,$fullname)=split(':',$name);      my ($uname,$udom,$sec,$fullname)=split(':',$name);
Removed from v.1.2  
changed lines
  Added in v.1.3

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