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