version 1.16, 2001/04/25 20:33:26
|
version 1.17, 2001/05/10 21:13:04
|
Line 17
|
Line 17
|
# 2/14 Gerd Kortemeyer) |
# 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 |
# 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; |
package Apache::loncreateuser; |
|
|
Line 231 ENDNUSER
|
Line 233 ENDNUSER
|
} |
} |
$r->print('<hr><h3>Add Roles</h3>'); |
$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 |
# Domain level |
# |
# |
$r->print('<h4>Domain Level</h4>'. |
$r->print('<h4>Domain Level</h4>'. |