Subversion Repositories wimsdev

Rev

Rev 10747 | Rev 10768 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
10688 bpr 1
!!called by participant.phtml, not by authparticipant.phtml
5020 bpr 2
!read adm/class/initclass $wims_class
10747 bpr 3
!reset directlistparticipate directlistsupervisor
1467 bpr 4
!if $directcnt>0
10351 bpr 5
 !for i_=1 to $directcnt
1304 bpr 6
  !set cl=!word 1 of $(directlist[$i_])
10351 bpr 7
  !if /0/ notin $(cl)/
1421 bpr 8
    !set type_=!defof class_typename in wimshome/log/classes/$cl/.def
9
    !set direct$type_=!append item $(directlist[$i_]) to $(direct$type_)
1304 bpr 10
  !else
10747 bpr 11
    !set directtest=!append item $(directlist[$i_]) to $directtest
1304 bpr 12
  !endif
10747 bpr 13
  !set tmp=!word 2 of $(directlist[$i_])
14
  !if $tmp=supervisor
15
    !set directlistsupervisor=!append item $cl to $directlistsupervisor
16
  !else
17
    !set directlistparticipate=!append item $cl to $directlistparticipate
18
  !endif
10351 bpr 19
 !next
10747 bpr 20
!set user_participate_=!append item $directlistparticipate to $user_participate
21
!set user_participate_=!listuniq $user_participate_
22
!set user_supervise_=!append item $directlistsupervise to $user_supervise
23
!set user_supervise_=!listuniq $user_supervise_
24
 
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\
34
$compsup
35
!reset compsup
36
 
1741 bpr 37
$name_direct:
10750 bpr 38
!if / isin $user_participate_
39
 !for cls in $user_participate_
10747 bpr 40
  !if $wims_class isin $cls
41
    !let tmp=!replace internal / by , in $cls
42
    !let compsup=!append line $tmp to $compsup
43
  !endif
10750 bpr 44
 !next cls
45
 !let compsup=!sh echo "$compsup" | sort | uniq;
46
 !read adm/class/graphclass participate\
10747 bpr 47
$compsup
10750 bpr 48
 !reset compsup
49
 !goto enter
50
!endif
10688 bpr 51
!!set directlist2=!items2lines $directlist
52
!!set directlist2=!lines2rows $directlist2
53
!!set directlist2=!words2items $directlist2
54
!!<div class="spacer">
10750 bpr 55
!read adm/class/graphclass $directlist
10688 bpr 56
!!</div>
10651 bpr 57
 
10750 bpr 58
!read tableold.phtml
59
:enter
23 reyssat 60
 !if $wims_user=supervisor
9506 bpr 61
   $name_text3
62
 !else
63
   $name_text1
23 reyssat 64
 !endif
65
!else
66
 !if $wims_user=supervisor
9506 bpr 67
  $name_text2
23 reyssat 68
 !else
9506 bpr 69
  $name_noaccount
23 reyssat 70
 !endif
71
!endif