Subversion Repositories wimsdev

Rev

Rev 10593 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10593 Rev 10747
Line 1... Line 1...
1 
 
 1 
!exit
2 
!if $wims_user!=supervisor
 2 
!if $wims_user!=supervisor
3 
 !!exit
 3 
 !!exit
4 
!endif
 4 
!endif
5 
!set list=$(wims_read_parm[;1])
 5 
!set list=$(wims_read_parm[;1])
6 
!set statut=$(wims_read_parm[;2])
 6 
!set statut=$(wims_read_parm[;2])
Line 63... Line 63...
63 
 !else
 63 
 !else
64 
    !set cls_pos=!positionof item $cls in $list
 64 
    !set cls_pos=!positionof item $cls in $list
65 
  !if $cls_pos!=$empty
 65 
  !if $cls_pos!=$empty
66 
    !set cls_statut=$(statut[$cls_pos])
 66 
    !set cls_statut=$(statut[$cls_pos])
67 
    !if $cls_statut=supervisor
 67 
    !if $cls_statut=supervisor
68 
      !href cmd=reply&&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2])
 68 
      !href cmd=reply&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2])
69 
    ($cls_statut)
 69 
    ($cls_statut)
70 
    !else
 70 
    !else
71 
      !href cmd=reply&type=authparticipant&class=$cls&auth_user=$cls_statut $(don[2])
 71 
      !href cmd=reply&type=authparticipant&class=$cls&auth_user=$cls_statut $(don[2])
72 
    !endif
 72 
    !endif
73 
  !endif
 73 
  !endif