--- loncom/interface/loncreateuser.pm	2005/06/19 00:41:32	1.105
+++ loncom/interface/loncreateuser.pm	2005/06/23 21:59:13	1.107
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.105 2005/06/19 00:41:32 www Exp $
+# $Id: loncreateuser.pm,v 1.107 2005/06/23 21:59:13 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -156,14 +156,18 @@ $lt{'dom'}:</td><td>$domform</td></tr>
 </table>
 <input name="userrole" type="submit" value="$lt{usrr}" />
 </form>
+ENDDOCUMENT
+   if (&Apache::lonnet::allowed('mcr','/')) {
+       $r->print(<<ENDCUSTOM);
 <form action="/adm/createuser" method="post" name="docustom">
 <input type="hidden" name="phase" value="selected_custom_edit">
 <h2>$lt{'ecrp'}$helpecpr</h2>
 $lt{'nr'}: $choice <input type="text" size="15" name="newrolename" /><br />
 <input name="customeditor" type="submit" value="$lt{'cre'}" />
-</body>
-</html>
-ENDDOCUMENT
+</form>
+ENDCUSTOM
+    }
+    $r->print('</body></html>');
 }
 
 # =================================================================== Phase two