[BACK]Return to lonaccesstimes.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonaccesstimes.pm between versions 1.1 and 1.2

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>');
Removed from v.1.1  
changed lines
  Added in v.1.2

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