Subversion Repositories wimsdev

Rev

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

Rev 6248 Rev 9506
Line 24... Line 24...
24 
  !set ntype_ = !replace internal group by $(CL_Name[6]) in $ntype_
 24 
  !set ntype_ = !replace internal group by $(CL_Name[6]) in $ntype_
25 
  !set ntype_ = !replace internal test by $(CL_Name[7]) in $ntype_
 25 
  !set ntype_ = !replace internal test by $(CL_Name[7]) in $ntype_
26 
  !for cl in $(direct$typ)
 26 
  !for cl in $(direct$typ)
27 
   !distribute words $cl into c_,u_
 27 
   !distribute words $cl into c_,u_
28 
   !set n_=!defof class_institution, class_description in\
 28 
   !set n_=!defof class_institution, class_description in\
29 
        wimshome/log/classes/$c_/.def
 29 
 wimshome/log/classes/$c_/.def
30 
   !if $u_=supervisor
 30 
   !if $u_=supervisor
31 
   !set t_=supervisor
 31 
   !set t_=supervisor
32 
    !if $c_ notwordof $wims_supervise and $wims_realuser!=$wims_user
 32 
    !if $c_ notwordof $wims_supervise and $wims_realuser!=$wims_user
33 
     !goto out
 33 
     !goto out
34 
    !endif
 34 
    !endif
Line 50... Line 50...
50 
:out
 50 
:out
51 
 !reset c_ u_ t_
 51 
 !reset c_ u_ t_
52 
  !next cl
 52 
  !next cl
53 
 !next typ
 53 
 !next typ
54 
 </table>
 54 
 </table>
55 
 <hr />
 - 
 
56 
 !if $wims_user=supervisor
 55 
 !if $wims_user=supervisor
57 
  $name_text3
 56 
   $name_text3
- 
 
 57 
 !else
- 
 
 58 
   $name_text1
58 
 !endif
 59 
 !endif
59 
!else
 60 
!else
60 
 !if $wims_user=supervisor
 61 
 !if $wims_user=supervisor
61 
 $name_text2
 62 
  $name_text2
62 
 !else
 63 
 !else
63 
 $name_noaccount
 64 
  $name_noaccount
64 
 !endif
 65 
 !endif
65 
!endif
 66 
!endif
66 
 
 67