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