--- loncom/interface/loncreateuser.pm	2001/04/25 20:33:26	1.16
+++ loncom/interface/loncreateuser.pm	2001/05/10 21:13:04	1.17
@@ -17,6 +17,8 @@
 # 2/14 Gerd Kortemeyer)
 #
 # 2/14,2/17,2/19,2/20,2/21,2/22,2/23,3/2,3/17,3/24,04/12 Gerd Kortemeyer
+# April Guy Albertelli
+# 05/10 Gerd Kortemeyer 
 #
 package Apache::loncreateuser;
 
@@ -231,6 +233,31 @@ ENDNUSER
     }
     $r->print('<hr><h3>Add Roles</h3>');
 #
+# Co-Author
+# 
+
+    if (&Apache::lonnet::allowed('cca',$ENV{'user.domain'})) {
+	my $cuname=$ENV{'user.name'};
+        my $cudom=$ENV{'user.domain'};
+       $r->print(<<ENDCOAUTH);
+<h4>Construction Space</h4>
+<table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th>
+<th>Start</th><th>End</th></tr>
+<tr>
+<td><input type=checkbox name="act_$cudom\_$cuname\_ca"></td>
+<td>Co-Author</td>
+<td>$cudom\_$cuname</td>
+<td><input type=hidden name="start_$cudom\_$cuname\_ca" value=''>
+<a href=
+"javascript:pjump('date_start','Start Date Co-Author',document.cu.start_$cudom\_$cuname\_ca.value,'start_$cudom\_$cuname\_ca','cu.pres','dateset')">Set Start Date</a></td>
+<td><input type=hidden name="end_$cudom\_$cuname\_ca" value=''>
+<a href=
+"javascript:pjump('date_end','End Date Co-Author',document.cu.end_$cudom\_$cuname\_ca.value,'end_$cudom\_$cuname\_ca','cu.pres','dateset')">Set End Date</a></td>
+</tr>
+</table>
+ENDCOAUTH
+    }
+#
 # Domain level
 #
     $r->print('<h4>Domain Level</h4>'.