[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.3 and 1.7

version 1.3, 2005/04/07 06:56:22 version 1.7, 2007/11/20 00:15:31
Line 4 Line 4
       <message_text>Select </message_text>        <message_text>Select </message_text>
     </message>      </message>
     <choices variable="harry">      <choices variable="harry">
       <choice computer='1' nextstate="Student">Reset times on one or more maps for a single student.</choice>        <choice computer='1' nextstate="Student">Reset times on one or more folders/maps, resources or the course for a single student.</choice>
       <choice computer='0' nextstate="Class">Reset times on a single map for a section or whole clase.</choice>        <choice computer='0' nextstate="Class">Reset times on a single folder/map, resource or the course for a section or the whole class.</choice>
       </choices>        </choices>
   </state>    </state>
   <state name="Student" title="Select Student">    <state name="Student" title="Select Student">
Line 17 Line 17
   
   <state name="SelectAccess">    <state name="SelectAccess">
     <message nextstate="ConfirmStu">      <message nextstate="ConfirmStu">
        <message_text>This is a list of maps and times they were accessed, plese select those you want deleted.</message_text>         <message_text>This is a list of first access times and what was accessed, plese select those you want deleted.</message_text>
     </message>      </message>
     <choices variable='delete' multichoice='true'>      <choices variable='delete' multichoice='true'>
       <exec>        <exec>
Line 27 Line 27
          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);
      my $title=&Apache::lonnet::gettitle($symb);       my $title = 
    ($symb ne 'course') ? &Apache::lonnet::gettitle($symb)
                                : $env{'course.'.$env{'request.course.id'}.'.description'};
      my $time=&Apache::lonlocal::locallocaltime($times{$res});       my $time=&Apache::lonlocal::locallocaltime($times{$res});
      my $description="<a href='/adm/navmaps?postsymb=".&Apache::lonnet::escape($symb)."'>$title</a> on $time";       my $description="<a href='/adm/navmaps?postsymb=".&Apache::lonnet::escape($symb)."'>$title</a> on $time";
      push(@{$state->{CHOICES}},[$description,$escsymb]);       push(@{$state->{CHOICES}},[$description,$escsymb]);
Line 45 Line 47
         if (!$fullname) { $fullname="$uname\@$udom"; }          if (!$fullname) { $fullname="$uname\@$udom"; }
         return '<li>'.$fullname.'</li>';          return '<li>'.$fullname.'</li>';
     </eval>      </eval>
     <message><message_text></ul> for maps <ul></message_text></message>      <message><message_text></ul> for <ul></message_text></message>
     <eval>      <eval>
  my $list;   my $list;
  my @symbs=split(/\|\|\|/,$helper->{'VARS'}{'delete'});   my @symbs=split(/\|\|\|/,$helper->{'VARS'}{'delete'});
  foreach my $escsymb (@symbs) {   foreach my $escsymb (@symbs) {
     my $symb=&Apache::lonnet::unescape($escsymb);      my $symb=&Apache::lonnet::unescape($escsymb);
     $list.='<li>'.&Apache::lonnet::gettitle($symb).'</li>';      my $title = 
    ($symb ne 'course') ? &Apache::lonnet::gettitle($symb)
                               : $env{'course.'.$env{'request.course.id'}.'.description'};
       $list.='<li>'.$title.'</li>';
  }   }
  return $list;   return $list;
     </eval>      </eval>
Line 60 Line 65
   <state name="FinishStu" title="Processing">    <state name="FinishStu" title="Processing">
     <final>      <final>
       <finalcode>        <finalcode>
         &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'};
Line 70 Line 74
     my $symb=&Apache::lonnet::unescape($escsymb);      my $symb=&Apache::lonnet::unescape($escsymb);
     my $res=&Apache::lonnet::del('firstaccesstimes',      my $res=&Apache::lonnet::del('firstaccesstimes',
  ["$courseid\0$symb"],$udom,$uname);   ["$courseid\0$symb"],$udom,$uname);
       my $title = 
    ($symb ne 'course') ? &Apache::lonnet::gettitle($symb)
                               : $env{'course.'.$env{'request.course.id'}.'.description'};
     $result.="Removing access time from ".      $result.="Removing access time from ".
       &Apache::lonnet::gettitle($symb).": ".$res.'</li><li>';        $title.": ".$res.'</li><li>';
  }   }
         $result=~s/<li>$//;          $result=~s/<li>$//;
         return $result;          return $result;
Line 82 Line 89
   
   <state name="Class">    <state name="Class">
     <message nextstate="SelectMap">      <message nextstate="SelectMap">
  <message_text>Select:<br /></message_text>  
     </message>      </message>
     <student variable='stu1' coursepersonnel='true' activeonly='true' multichoice='true' />      <student variable='stu1' coursepersonnel='true' activeonly='true' multichoice='true' />
   </state>    </state>
   
   <state name="SelectMap" title="Select a map">    <state name="SelectMap" title="Select a folder/map">
     <message><message_text>Choose a resource</message_text></message>      <resource variable="res2" includecourse="true">
     <resource variable="res2">        <filterfunc>return (($res->is_map() && $res->map_contains_problem()) 
       <filterfunc>return $res->is_map()</filterfunc>                            ||$res->is_problem() );</filterfunc>
       <valuefunc>return $res->symb()</valuefunc>        <valuefunc>return $res->symb()</valuefunc>
       <nextstate>ShowPlan</nextstate>        <nextstate>ShowPlan</nextstate>
     </resource>          </resource>    
Removed from v.1.3  
changed lines
  Added in v.1.7

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