--- loncom/interface/lonuserutils.pm	2007/12/23 03:16:30	1.30
+++ loncom/interface/lonuserutils.pm	2007/12/23 15:50:24	1.32
@@ -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.32 2007/12/23 15:50:24 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2047,6 +2047,11 @@ END
                                     $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') {
                         if (&Apache::lonnet::allowed('c'.$role,
@@ -3883,6 +3888,12 @@ sub update_user_list {
                     $plrole,$extent,$uname.':'.$udom,$result).'<br />');
         }
     }
+    $r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n");
+    foreach my $item ('action','sortby','roletype','showrole','Status') {
+        if ($env{'form.'.$item} ne '') {
+            $r->print('<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}.'" />'."\n");
+        }
+    }
     $r->print('<p><b>'.&mt("$result_text{'ok'}{$choice} role(s) for [quant,_1,user,users,no users].",$count).'</b></p>');
     if ($count > 0) {
         if ($choice eq 'revoke' || $choice eq 'drop') {
@@ -3896,6 +3907,7 @@ sub update_user_list {
             $r->print(&make_dates_default($startdate,$enddate,$context));
         }
     }
+    $r->print('<a href="javascript:document.studentform.submit()">'.&mt('Display User Lists').'</a></form>'."\n");
 }
 
 sub classlist_drop {