Subversion Repositories wimsdev

Rev

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

Rev 10747 Rev 10750
Line 33... Line 33...
33 
!read adm/class/graphclass supervise\
 33 
!read adm/class/graphclass supervise\
34 
$compsup
 34 
$compsup
35 
!reset compsup
 35 
!reset compsup
36 
 
 36 
 
37 
$name_direct:
 37 
$name_direct:
- 
 
 38 
!if / isin $user_participate_
38 
!for cls in $user_participate_
 39 
 !for cls in $user_participate_
39 
  !if $wims_class isin $cls
 40 
  !if $wims_class isin $cls
40 
    !let tmp=!replace internal / by , in $cls
 41 
    !let tmp=!replace internal / by , in $cls
41 
    !let compsup=!append line $tmp to $compsup
 42 
    !let compsup=!append line $tmp to $compsup
42 
  !endif
 43 
  !endif
43 
!next cls
 44 
 !next cls
44 
!let compsup=!sh echo "$compsup" | sort | uniq;
 45 
 !let compsup=!sh echo "$compsup" | sort | uniq;
45 
!read adm/class/graphclass participate\
 46 
 !read adm/class/graphclass participate\
46 
$compsup
 47 
$compsup
47 
!reset compsup
 48 
 !reset compsup
48 
 
 49 
 !goto enter
49 
 
 50 
!endif
50 
!!set directlist2=!items2lines $directlist
 51 
!!set directlist2=!items2lines $directlist
51 
!!set directlist2=!lines2rows $directlist2
 52 
!!set directlist2=!lines2rows $directlist2
52 
!!set directlist2=!words2items $directlist2
 53 
!!set directlist2=!words2items $directlist2
53 
!!<div class="spacer">
 54 
!!<div class="spacer">
54 
!!!read graphclass $directlist2
 55 
!read adm/class/graphclass $directlist
55 
!!</div>
 56 
!!</div>
56 
 
 57 
 
57 
!!read tableold.phtml
 58 
!read tableold.phtml
58 
 
 59 
:enter
59 
 !if $wims_user=supervisor
 60 
 !if $wims_user=supervisor
60 
   $name_text3
 61 
   $name_text3
61 
 !else
 62 
 !else
62 
   $name_text1
 63 
   $name_text1
63 
 !endif
 64 
 !endif