--- loncom/interface/loncommon.pm	2006/12/01 20:17:47	1.482
+++ loncom/interface/loncommon.pm	2006/12/04 22:03:15	1.485
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.482 2006/12/01 20:17:47 raeburn Exp $
+# $Id: loncommon.pm,v 1.485 2006/12/04 22:03:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2855,8 +2855,8 @@ sub findallcourses {
         }
     } else {
         foreach my $key (keys(%env)) {
-	    if ( $key=~m{^user\.role\.(\w+)\./($match_domain)/($match_username)/?(\w*)$} ||
-                 $key=~m{^user\.role\.(cr/$match_domain/$match_username/\w+)\./($match_domain)/($match_username)/?(\w*)$}) {
+	    if ( $key=~m{^user\.role\.(\w+)\./($match_domain)/($match_courseid)/?(\w*)$} ||
+                 $key=~m{^user\.role\.(cr/$match_domain/$match_username/\w+)\./($match_domain)/($match_courseid)/?(\w*)$}) {
 	        my ($role,$cdom,$cnum,$sec) = ($1,$2,$3,$4);
 	        next if ($role eq 'ca' || $role eq 'aa');
 	        next if (%roles && !exists($roles{$role}));
@@ -2936,13 +2936,10 @@ sub blockcheck {
                                                        $tdom,$spec,$trest,$area);
                 }
                 my ($author,$adv) = &Apache::lonnet::set_userprivs(\%userroles,\%allroles);
-                if ($userroles{'user.priv.'.$checkrole} =~ /evb\&([^\:]*)/) {
-                    if ($1) {
-                        $no_userblock = 1;
-                        last;
-                    }
-                }
-            } else {
+		$no_userblock = &Apache::lonnet::allowed('evb',undef,undef,
+							 $checkrole);
+		last if $no_userblock;
+             } else {
                 if (&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) {
                     $no_ownblock = 1;
                     last;
@@ -5225,7 +5222,6 @@ sub record_sep {
         }
     } else {
         my @allfields;
-        &Apache::lonnet::logthis("file type is ".$env{'form.upfiletype'});
         if ($env{'form.upfiletype'} eq 'semisv') {
             @allfields=split(/;/,$record);
         } else {