--- loncom/interface/loncreateuser.pm 2016/10/10 02:53:02 1.415 +++ loncom/interface/loncreateuser.pm 2016/10/10 03:02:48 1.416 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Create a user # -# $Id: loncreateuser.pm,v 1.415 2016/10/10 02:53:02 raeburn Exp $ +# $Id: loncreateuser.pm,v 1.416 2016/10/10 03:02:48 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -737,6 +737,8 @@ sub print_username_entry_form { $helpitem = 'Course_Editing_Custom_Roles'; } elsif ($env{'form.action'} eq 'singlestudent') { $helpitem = 'Course_Add_Student'; + } elsif ($env{'form.action'} eq 'accesslogs') { + $helpitem = 'Domain_User_Access_Logs'; } my %breadcrumb_text = &singleuser_breadcrumb($crstype); if ($env{'form.action'} eq 'custom') { @@ -766,6 +768,7 @@ sub print_username_entry_form { 'srst' => 'Search for a user and enroll as a student', 'srme' => 'Search for a user and enroll as a member', 'srad' => 'Search for a user and modify/add user information or roles', + 'srva' => 'Search for a user and view access log information', 'usr' => "Username", 'dom' => "Domain", 'ecrp' => "Define or Edit Custom Role", @@ -818,6 +821,8 @@ sub print_username_entry_form { } else { $actiontext = $lt{'srst'}; } + } elsif ($env{'form.action'} eq 'accesslogs') { + $actiontext = $lt{'srva'}; } $r->print("
'.$userpicker.'
'; } - if ($env{'form.phase'} eq '') { + if (($env{'form.phase'} eq '') && ($env{'form.action'} ne 'accesslogs')) { my $defdom=$env{'request.role.domain'}; my $domform = &Apache::loncommon::select_dom_form($defdom,'srchdomain'); my %lt=&Apache::lonlocal::texthash( @@ -1025,9 +1032,11 @@ ENDSCRIPT 'usrch' => "User Search to add/modify roles", 'stusrch' => "User Search to enroll student", 'memsrch' => "User Search to enroll member", + 'srcva' => "Search for a user and view access log information", 'usel' => "Select a user to add/modify roles", 'stusel' => "Select a user to enroll as a student", 'memsel' => "Select a user to enroll as a member", + 'vacsel' => "Select a user to view access log", 'username' => "username", 'domain' => "domain", 'lastname' => "last name", @@ -1076,6 +1085,10 @@ ENDSCRIPT $r->print($lt{'stusel'}); } $r->print(''); + } elsif ($env{'form.action'} eq 'accesslogs') { + $r->print("$lt{'srcva'}