version 1.1, 2016/10/22 02:03:31
|
version 1.2, 2017/01/31 18:55:03
|
Line 304 sub print_results {
|
Line 304 sub print_results {
|
if ($title eq '') { |
if ($title eq '') { |
$title = &Apache::lonnet::gettitle($item); |
$title = &Apache::lonnet::gettitle($item); |
} |
} |
$hierarchy = &show_timer_path('resource',$item,$navmap); |
$hierarchy = &Apache::lonblockingmenu::show_timer_path('resource',$item,$navmap); |
if ($hierarchy) { |
if ($hierarchy) { |
$path = ' <span style="font-size:90%;">'. |
$path = ' <span style="font-size:90%;">'. |
&mt('(in: [_1])',$hierarchy). |
&mt('(in: [_1])',$hierarchy). |
Line 329 sub print_results {
|
Line 329 sub print_results {
|
if (ref($current_members) eq 'ARRAY') { |
if (ref($current_members) eq 'ARRAY') { |
map { $active{$_->[0]} = 1; } @{$current_members}; |
map { $active{$_->[0]} = 1; } @{$current_members}; |
} |
} |
#my $shownheader = 0; |
|
my (@hasaccess,@noaccess); |
my (@hasaccess,@noaccess); |
my $key=$env{'request.course.id'}."\0".$symb; |
my $key=$env{'request.course.id'}."\0".$symb; |
foreach my $name (sort(@students)) { |
foreach my $name (sort(@students)) { |
Line 338 sub print_results {
|
Line 337 sub print_results {
|
if (!$fullname) { $fullname="$uname:$udom"; } |
if (!$fullname) { $fullname="$uname:$udom"; } |
my %times=&Apache::lonnet::get('firstaccesstimes', |
my %times=&Apache::lonnet::get('firstaccesstimes', |
[$key],$udom,$uname); |
[$key],$udom,$uname); |
# unless ($shownheader) { |
|
# $r->print('<ul>'); |
|
# $shownheader = 1; |
|
# } |
|
if (!$times{$key}) { |
if (!$times{$key}) { |
push(@noaccess,[$name,$fullname]); |
push(@noaccess,[$name,$fullname]); |
# $r->print('<li>'.&mt("No access times found for $usertype [_1]",$fullname).'</li>'); |
|
} else { |
} else { |
push(@hasaccess,[$name,$fullname,$times{$key}]); |
push(@hasaccess,[$name,$fullname,$times{$key}]); |
# $r->print('<li>'.&mt("First access time: [_1] found for $usertype [_2]", |
|
# &Apache::lonlocal::locallocaltime($times{$key}),$fullname).'</li>'); |
|
} |
} |
} |
} |
if ((@hasaccess == 0) && (@noaccess == 0)) { |
if ((@hasaccess == 0) && (@noaccess == 0)) { |
Line 389 sub print_results {
|
Line 381 sub print_results {
|
$r->print(&Apache::loncommon::end_data_table().'</p>'); |
$r->print(&Apache::loncommon::end_data_table().'</p>'); |
} |
} |
} |
} |
# if ($shownheader) { |
|
# $r->print('</ul>'); |
|
# } else { |
|
# $r->print('<p class="LC_warning">'.&mt('No valid users selected').'</p>'); |
|
# } |
|
} else { |
} else { |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
$r->print('<p class="LC_warning">'.&mt('No members selected to check for first access times').'</p>'); |
$r->print('<p class="LC_warning">'.&mt('No members selected to check for first access times').'</p>'); |