Subversion Repositories wimsdev

Rev

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

Rev 10750 Rev 10768
Line 19... Line 19...
19 
 !next
 19 
 !next
20 
!set user_participate_=!append item $directlistparticipate to $user_participate
 20 
!set user_participate_=!append item $directlistparticipate to $user_participate
21 
!set user_participate_=!listuniq $user_participate_
 21 
!set user_participate_=!listuniq $user_participate_
22 
!set user_supervise_=!append item $directlistsupervise to $user_supervise
 22 
!set user_supervise_=!append item $directlistsupervise to $user_supervise
23 
!set user_supervise_=!listuniq $user_supervise_
 23 
!set user_supervise_=!listuniq $user_supervise_
- 
 
 24 
!! finally leave the old table ! too much trouble
- 
 
 25 
!!!for cls in $user_supervise_
- 
 
 26 
!!  !if $wims_class isin $cls
- 
 
 27 
!!   !let tmp=!replace internal / by , in $cls
- 
 
 28 
!!    !let compsup=!append line $tmp to $compsup
- 
 
 29 
!!  !endif
- 
 
 30 
!!!next cls
- 
 
 31 
!!!let compsup=!sh echo "$compsup" | sort | uniq;
24 
 
 32 
 
25 
!for cls in $user_supervise_
 - 
 
26 
  !if $wims_class isin $cls
 - 
 
27 
    !let tmp=!replace internal / by , in $cls
 - 
 
28 
    !let compsup=!append line $tmp to $compsup
 - 
 
29 
  !endif
 - 
 
30 
!next cls
 - 
 
31 
!let compsup=!sh echo "$compsup" | sort | uniq;
 - 
 
32 
 
 - 
 
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_
 - 
 
39 
 !for cls in $user_participate_
 - 
 
40 
  !if $wims_class isin $cls
 - 
 
41 
    !let tmp=!replace internal / by , in $cls
 - 
 
42 
    !let compsup=!append line $tmp to $compsup
 - 
 
43 
  !endif
 - 
 
44 
 !next cls
 - 
 
45 
 !let compsup=!sh echo "$compsup" | sort | uniq;
 - 
 
46 
 !read adm/class/graphclass participate\
 - 
 
47 
$compsup
 - 
 
48 
 !reset compsup
 - 
 
49 
 !goto enter
 - 
 
50 
!endif
 - 
 
51 
!!set directlist2=!items2lines $directlist
 - 
 
52 
!!set directlist2=!lines2rows $directlist2
 - 
 
53 
!!set directlist2=!words2items $directlist2
 - 
 
54 
!!<div class="spacer">
 - 
 
55 
!read adm/class/graphclass $directlist
 - 
 
56 
!!</div>
 - 
 
57 
 
 38 
 
- 
 
 39 
!!!if / isin $user_participate_
- 
 
 40 
!! !for cls in $user_participate_
- 
 
 41 
!!  !if $wims_class isin $cls
- 
 
 42 
!!    !let tmp=!replace internal / by , in $cls
- 
 
 43 
!!    !let compsup=!append line $tmp to $compsup
- 
 
 44 
!!  !endif
- 
 
 45 
!! !next cls
- 
 
 46 
!! !let compsup=!sh echo "$compsup" | sort | uniq;
- 
 
 47 
!! !read adm/class/graphclass participate\
- 
 
 48 
!!$compsup
- 
 
 49 
!! !reset compsup
- 
 
 50 
!! !goto enter
- 
 
 51 
!!!endif
58 
!read tableold.phtml
 52 
!read tableold.phtml
59 
:enter
 53 
:enter
- 
 
 54 
<div>
60 
 !if $wims_user=supervisor
 55 
 !if $wims_user=supervisor
61 
   $name_text3
 56 
   $name_text3
62 
 !else
 57 
 !else
63 
   $name_text1
 58 
   $name_text1
64 
 !endif
 59 
 !endif
Line 67... Line 62...
67 
  $name_text2
 62 
  $name_text2
68 
 !else
 63 
 !else
69 
  $name_noaccount
 64 
  $name_noaccount
70 
 !endif
 65 
 !endif
71 
!endif
 66 
!endif
- 
 
 67 
</div>