--- loncom/interface/lonuserutils.pm	2012/02/08 16:27:28	1.136.6.1
+++ loncom/interface/lonuserutils.pm	2012/04/25 21:05:30	1.137
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Utility functions for managing LON-CAPA user accounts
 #
-# $Id: lonuserutils.pm,v 1.136.6.1 2012/02/08 16:27:28 raeburn Exp $
+# $Id: lonuserutils.pm,v 1.137 2012/04/25 21:05:30 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1422,7 +1422,8 @@ sub curr_role_permissions {
 sub my_custom_roles {
     my ($crstype) = @_;
     my %returnhash=();
-    my %rolehash=&Apache::lonnet::dump('roles');
+    my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});
+    my %rolehash=&Apache::lonnet::dump('roles',undef,undef,'.',undef,$extra);
     foreach my $key (keys(%rolehash)) {
         if ($key=~/^rolesdef\_(\w+)$/) {
             if ($crstype eq 'Community') {
@@ -2321,7 +2322,6 @@ END
                        'type'       => "enroll type/action",
                        'email'      => "e-mail address",
                        'photo'      => "photo",
-                       'lastlogin'  => "last login"
                        'extent'     => "extent",
                        'pr'         => "Proceed",
                        'ca'         => "check all",
@@ -2370,9 +2370,6 @@ END
             push(@cols,'groups');
         }
         push(@cols,'email');
-        if ($context eq 'course') {
-            push(@cols,'lastlogin');
-        }
     }
 
     my $rolefilter = $env{'form.showrole'};
@@ -2597,11 +2594,6 @@ END
                                                 Future  => 'Future',
                                                 Expired => 'Expired',
                                                );
-    # If this is for a single course get last course "log-in".
-    my %crslogins;
-    if ($context eq 'course') {
-        %crslogins=&Apache::lonnet::dump('nohist_crslastlogin',$cdom,$cnum);
-    }
     # Get groups, role, permanent e-mail so we can sort on them if
     # necessary.
     foreach my $user (keys(%{$userlist})) {
@@ -2750,12 +2742,6 @@ END
                 $in{'end'} = &Apache::lonlocal::locallocaltime($in{'end'});
             }
         }
-        if ($context eq 'course') {
-            my $lastlogin = $crslogins{$in{'username'}.':'.$in{'domain'}.':'.$in{'section'}.':'.$role};
-            if ($lastlogin ne '') {
-                $in{'lastlogin'} = &Apache::lonlocal::locallocaltime($lastlogin);
-            }
-        }
         if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll' || $mode eq 'pickauthor') {
             $r->print(&Apache::loncommon::start_data_table_row());
             my $checkval;