loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.16, 2001/04/25 20:33:26
+version 1.17, 2001/05/10 21:13:04
  Line 17
  # 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;
- Line 231  ENDNUSER
+ Line 233  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>'.