File:  [LON-CAPA] / loncom / html / adm / helper / resettimes.helper
Revision 1.7: download - view: text, annotated - select for diffs
Tue Nov 20 00:15:31 2007 UTC (16 years, 11 months ago) by albertel
Branches: MAIN
CVS tags: version_2_8_0, version_2_7_X, version_2_7_99_1, version_2_7_99_0, version_2_7_1, version_2_7_0, version_2_6_X, version_2_6_99_1, version_2_6_99_0, version_2_6_3, version_2_6_2, version_2_6_1, version_2_6_0, version_2_5_99_1, version_2_5_99_0, HEAD
- add ability to remove access times from both the course and individual resources

<helper title="Reset Access Times" requiredpriv="mgr">
  <state name="START" title="Select Scope">
    <message>
      <message_text>Select </message_text>
    </message>
    <choices variable="harry">
      <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 folder/map, resource or the course for a section or the whole class.</choice>
      </choices>
  </state>
  <state name="Student" title="Select Student">
    <message nextstate="SelectAccess">
	<message_text>Choose a student:<br /></message_text>
    </message>
    <student variable='stu1' coursepersonnel='true' activeonly='true' />
  </state>

  <state name="SelectAccess">
    <message nextstate="ConfirmStu">
       <message_text>This is a list of first access times and what was accessed, plese select those you want deleted.</message_text>
    </message>
    <choices variable='delete' multichoice='true'>
      <exec>
         my ($uname,$udom,$sec,$fullname)=split(':',$helper->{'VARS'}{'stu1'});
         my %times=&Apache::lonnet::dump('firstaccesstimes',$udom,$uname,
					 "^$env{'request.course.id'}\0");
         foreach my $res (sort(keys(%times))) {
	     my (undef,$symb)=split("\0",$res);
	     my $escsymb=&Apache::lonnet::escape($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 $description="<a href='/adm/navmaps?postsymb=".&Apache::lonnet::escape($symb)."'>$title</a> on $time";
	     push(@{$state->{CHOICES}},[$description,$escsymb]);
	 }
      </exec>
    </choices>
  </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 <ul></message_text></message>
    <eval>
	my $list;
	my @symbs=split(/\|\|\|/,$helper->{'VARS'}{'delete'});
	foreach my $escsymb (@symbs) {
	    my $symb=&Apache::lonnet::unescape($escsymb);
	    my $title = 
		($symb ne 'course') ? &Apache::lonnet::gettitle($symb)
	                            : $env{'course.'.$env{'request.course.id'}.'.description'};
	    $list.='<li>'.$title.'</li>';
	}
	return $list;
    </eval>
  </state>

  <state name="FinishStu" title="Processing">
    <final>
      <finalcode>
        if ($helper->{'STATE'} ne 'FinishStu') { return; }
        my $result;
        my $courseid=$env{'request.course.id'};
        my ($uname,$udom,$sec,$fullname)=split(':',$helper->{'VARS'}{'stu1'});
        &Apache::lonnet::logthis($helper->{'VARS'}{'delete'});
        foreach my $escsymb (split(/\|\|\|/,$helper->{'VARS'}{'delete'})) {
	    my $symb=&Apache::lonnet::unescape($escsymb);
	    my $res=&Apache::lonnet::del('firstaccesstimes',
					 ["$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 ".
		      $title.": ".$res.'</li><li>';
	}
        $result=~s/<li>$//;
        return $result;
      </finalcode>
      <exitpage>/adm/flip?postdata=return:</exitpage>
    </final>
  </state>

  <state name="Class">
    <message nextstate="SelectMap">
    </message>
    <student variable='stu1' coursepersonnel='true' activeonly='true' multichoice='true' />
  </state>

  <state name="SelectMap" title="Select a folder/map">
    <resource variable="res2" includecourse="true">
      <filterfunc>return (($res->is_map() && $res->map_contains_problem()) 
                          ||$res->is_problem() );</filterfunc>
      <valuefunc>return $res->symb()</valuefunc>
      <nextstate>ShowPlan</nextstate>
    </resource>    
  </state>

  <state name="ShowPlan" title="Processing">
    <message nextstate="FINISH"><message_text>Will remove access times for <ul></message_text></message>

    <eval>
	return '<li>'.&Apache::lonnet::gettitle($helper->{'VARS'}{'res2'}).'</li>';
    </eval>
    <message><message_text></ul> from users <ul></message_text></message>
    <eval>
	my $list;
	my @names=split(/\|\|\|/,$helper->{'VARS'}{'stu1'});
	foreach my $name (@names) {
	    my ($uname,$udom,$sec,$fullname)=split(':',$name);
	    if (!$fullname) { $fullname="$uname\@$udom"; }
	    $list.='<li>'.$fullname.'</li>';
	}
	return $list;
    </eval>
  </state>

  <state name="FINISH" title="Processing">
      <final>
        <finalcode>
        if ($helper->{'STATE'} ne 'FINISH') { return; }
        my $result;
        my $symb=$helper->{'VARS'}{'res2'};
        my $key=$env{'request.course.id'}."\0".$symb;
	my @names=split(/\|\|\|/,$helper->{'VARS'}{'stu1'});
	foreach my $name (@names) {
	    my ($uname,$udom,$sec,$fullname)=split(':',$name);
	    if (!$fullname) { $fullname="$uname\@$udom"; }
	    my %times=&Apache::lonnet::get('firstaccesstimes',
					   [$key],$udom,$uname);
	    if (!$times{$key}) {
		$result.="No Access times found for student ".$fullname;
	    } else {
		$result.="Removing access times ".
		    &Apache::lonlocal::locallocaltime($times{$key}).
		    " found for student ".$fullname.": ";
		$result.=&Apache::lonnet::del('firstaccesstimes',
					      [$key],$udom,$uname);
	    }
	    $result.="</li>\n<li>";
	}
        $result=~s/<li>$//;
        return $result;
        </finalcode>
      <exitpage>/adm/flip?postdata=return:</exitpage></final>
  </state>
</helper>

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