--- loncom/html/adm/helper/resettimes.helper 2005/01/16 08:04:10 1.1
+++ loncom/html/adm/helper/resettimes.helper 2005/01/16 08:21:49 1.2
@@ -16,8 +16,10 @@
+
+ This is a list of maps and times they were accessed, plese select those you want deleted.
+
- FinishStu
my ($uname,$udom,$sec,$fullname)=split(':',$helper->{'VARS'}{'stu1'});
my %times=&Apache::lonnet::dump('firstaccesstimes',$udom,$uname,
@@ -27,13 +29,34 @@
my $escsymb=&Apache::lonnet::escape($symb);
my $title=&Apache::lonnet::gettitle($symb);
my $time=&Apache::lonlocal::locallocaltime($times{$res});
- my $description="$title";
+ my $description="$title on $time";
push(@{$state->{CHOICES}},[$description,$escsymb]);
}
+
+
+ Will remove access times from user
+
+
+ my ($uname,$udom,undef,$fullname)=split(':',$helper->{'VARS'}{'stu1'});
+ if (!$fullname) { $fullname="$uname\@$udom"; }
+ return ''.$fullname.'';
+
+ for maps
+
+ my $list;
+ my @symbs=split(/\|\|\|/,$helper->{'VARS'}{'delete'});
+ foreach my $escsymb (@symbs) {
+ my $symb=&Apache::lonnet::unescape($escsymb);
+ $list.=''.&Apache::lonnet::gettitle($symb).'';
+ }
+ return $list;
+
+
+