--- loncom/interface/lonuserutils.pm	2007/12/23 03:16:30	1.30
+++ loncom/interface/lonuserutils.pm	2007/12/23 03:21:28	1.31
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Utility functions for managing LON-CAPA user accounts
 #
-# $Id: lonuserutils.pm,v 1.30 2007/12/23 03:16:30 raeburn Exp $
+# $Id: lonuserutils.pm,v 1.31 2007/12/23 03:21:28 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2046,6 +2046,11 @@ END
                             if (&Apache::lonnet::allowed('c'.$role,
                                     $env{'request.role.domain'})) {
                                 $canchange{$role} = 1;
+                            }
+                        } elsif ($setting eq 'author') {
+                            if (&Apache::lonnet::allowed('c'.$role,
+                                    $env{'request.role.domain'})) {
+                                $canchange{$role} = 1;
                             }
                         }
                     } elsif ($context eq 'author') {