[LON-CAPA-cvs] cvs: loncom /auth roles.tab /interface loncreateuser.pm

[www]

www		Thu Jun 23 17:56:13 2005 EDT

  Modified files:              
    /loncom/auth	roles.tab 
    /loncom/interface	loncreateuser.pm 
  Log:
  Bug #4153: DC can define custom roles
  
  
Index: loncom/auth/roles.tab
diff -u loncom/auth/roles.tab:1.36 loncom/auth/roles.tab:1.37
--- loncom/auth/roles.tab:1.36	Sat Jun 18 21:02:58 2005
+++ loncom/auth/roles.tab	Thu Jun 23 17:56:12 2005
@@ -1,5 +1,5 @@
 su:s csu&U:sma:mau:cdc&U:dro:psa:adv
-dc:s bre:sma:adv
+dc:s bre:sma:adv:mcr
 dc:d cli&UIK:cau&UIK:cca&UIK:caa&UIK:cdg&UIK:mau:ccc&U:cin&UIK:cta&UIK:cep&UIK:ccr&UIK:cst&UIK:cad&UIK:csc&UIK:dro:mky:psa:usc
 cc:s bre:sma:mcr:vsa:adv:vcl
 cc:c cin&IK:cta&IK:cep&IK:ccr&IK:cst&IK:are:cre:ere:vgr:gan:srm:opa:mgr:rin:pch:plc:mdc:usc:vsa:vcl
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.105 loncom/interface/loncreateuser.pm:1.106
--- loncom/interface/loncreateuser.pm:1.105	Sat Jun 18 20:41:32 2005
+++ loncom/interface/loncreateuser.pm	Thu Jun 23 17:56:12 2005
@@ -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.106 2005/06/23 21:56:12 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -156,6 +156,9 @@
 </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>
@@ -163,7 +166,8 @@
 <input name="customeditor" type="submit" value="$lt{'cre'}" />
 </body>
 </html>
-ENDDOCUMENT
+ENDCUSTOM
+   }
 }
 
 # =================================================================== Phase two