--- loncom/interface/lonuserutils.pm	2007/12/23 03:21:28	1.31
+++ 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.31 2007/12/23 03:21:28 raeburn Exp $
+# $Id: lonuserutils.pm,v 1.32 2007/12/23 15:50:24 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3888,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') {
@@ -3901,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 {