Subversion Repositories wimsdev

Rev

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

Rev 10688 Rev 10747
Line 1... Line 1...
1
!!called by participant.phtml, not by authparticipant.phtml
1
!!called by participant.phtml, not by authparticipant.phtml
2
!read adm/class/initclass $wims_class
2
!read adm/class/initclass $wims_class
3
 
-
 
-
 
3
!reset directlistparticipate directlistsupervisor
4
!if $directcnt>0
4
!if $directcnt>0
5
 !for i_=1 to $directcnt
5
 !for i_=1 to $directcnt
6
  !set cl=!word 1 of $(directlist[$i_])
6
  !set cl=!word 1 of $(directlist[$i_])
7
  !if /0/ notin $(cl)/
7
  !if /0/ notin $(cl)/
8
    !set type_=!defof class_typename in wimshome/log/classes/$cl/.def
8
    !set type_=!defof class_typename in wimshome/log/classes/$cl/.def
9
    !set direct$type_=!append item $(directlist[$i_]) to $(direct$type_)
9
    !set direct$type_=!append item $(directlist[$i_]) to $(direct$type_)
10
  !else
10
  !else
11
   !set directtest=!append item $(directlist[$i_]) to $directtest
11
    !set directtest=!append item $(directlist[$i_]) to $directtest
-
 
12
  !endif
-
 
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
12
  !endif
18
  !endif
13
 !next
19
 !next
-
 
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
 
14
$name_direct:
37
$name_direct:
-
 
38
!for cls in $user_participate_
-
 
39
  !if $wims_class isin $cls
-
 
40
    !let tmp=!replace internal / by , in $cls
-
 
41
    !let compsup=!append line $tmp to $compsup
-
 
42
  !endif
-
 
43
!next cls
-
 
44
!let compsup=!sh echo "$compsup" | sort | uniq;
-
 
45
!read adm/class/graphclass participate\
-
 
46
$compsup
-
 
47
!reset compsup
-
 
48
 
15
 
49
 
16
!!set directlist2=!items2lines $directlist
50
!!set directlist2=!items2lines $directlist
17
!!set directlist2=!lines2rows $directlist2
51
!!set directlist2=!lines2rows $directlist2
18
!!set directlist2=!words2items $directlist2
52
!!set directlist2=!words2items $directlist2
19
!!<div class="spacer">
53
!!<div class="spacer">
20
!!!read classgraph $directlist2
54
!!!read graphclass $directlist2
21
!!</div>
55
!!</div>
22
 
56
 
23
!read tableold.phtml
57
!!read tableold.phtml
24
 
58
 
25
 !if $wims_user=supervisor
59
 !if $wims_user=supervisor
26
   $name_text3
60
   $name_text3
27
 !else
61
 !else
28
   $name_text1
62
   $name_text1