[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.1 and 1.2

version 1.1, 2005/01/16 08:04:10 version 1.2, 2005/01/16 08:21:49
Line 16 Line 16
   </state>    </state>
   
   <state name="SelectAccess">    <state name="SelectAccess">
       <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>
     <choices variable='delete' multichoice='true'>      <choices variable='delete' multichoice='true'>
       <nextstate>FinishStu</nextstate>  
       <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,
Line 27 Line 29
      my $escsymb=&Apache::lonnet::escape($symb);       my $escsymb=&Apache::lonnet::escape($symb);
      my $title=&Apache::lonnet::gettitle($symb);       my $title=&Apache::lonnet::gettitle($symb);
      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>";       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]);
  }   }
       </exec>        </exec>
     </choices>      </choices>
   </state>    </state>
   
     <state name="ConfirmStu">
       <message nextstate="FinishStu">
          <message_text>Will remove access times from user <ul></message_text>
       </message>
       <eval>
           my ($uname,$udom,undef,$fullname)=split(':',$helper->{'VARS'}{'stu1'});
           if (!$fullname) { $fullname="$uname\@$udom"; }
           return '<li>'.$fullname.'</li>';
       </eval>
       <message><message_text></ul> for maps <ul></message_text></message>
       <eval>
    my $list;
    my @symbs=split(/\|\|\|/,$helper->{'VARS'}{'delete'});
    foreach my $escsymb (@symbs) {
       my $symb=&Apache::lonnet::unescape($escsymb);
       $list.='<li>'.&Apache::lonnet::gettitle($symb).'</li>';
    }
    return $list;
       </eval>
     </state>
   
   <state name="FinishStu" title="Processing">    <state name="FinishStu" title="Processing">
     <final>      <final>
       <finalcode>        <finalcode>
Removed from v.1.1  
changed lines
  Added in v.1.2

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