Subversion Repositories wimsdev

Rev

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

Rev 10351 Rev 10401
Line 1... Line 1...
1
 
1
 
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])
7
!let compsup=$empty
7
!let compsup=$empty
8
 
8
 
Line 59... Line 59...
59
 !endif
59
 !endif
60
 <li>$arr <span class="wims_classes_direct_$(don[1])"> $(CL_Name[$t]) :
60
 <li>$arr <span class="wims_classes_direct_$(don[1])"> $(CL_Name[$t]) :
61
 !if $cls notitemof $list
61
 !if $cls notitemof $list
62
  $(don[2])
62
  $(don[2])
63
 !else
63
 !else
-
 
64
    !set cls_pos=!positionof item $cls in $list
-
 
65
  !if $cls_pos!=$empty
-
 
66
    !set cls_statut=$(statut[$cls_pos])
-
 
67
    !if $cls_statut=supervisor
64
  !href module=adm/class/classes&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2])
68
      !href module=adm/class/classes&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2])
-
 
69
    !else
-
 
70
      !href module=adm/class/classes&type=authparticipant&class=$cls&auth_user=$cls_statut $(don[2])
-
 
71
    !endif
-
 
72
  !endif
65
 !endif
73
 !endif
66
 ($(don[3])) </span> </li>
74
 ($(don[3])) </span> </li>
67
:endfor
75
:endfor
68
!next cls
76
!next cls
69
!for k=1 to $tab
77
!for k=1 to $tab