Subversion Repositories wimsdev

Rev

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

Rev 10793 Rev 10927
Line 19... Line 19...
19 
    !set directlistsupervisor=!append item $cl to $directlistsupervisor
 19 
    !set directlistsupervisor=!append item $cl to $directlistsupervisor
20 
  !else
 20 
  !else
21 
    !set directlistparticipate=!append item $cl to $directlistparticipate
 21 
    !set directlistparticipate=!append item $cl to $directlistparticipate
22 
  !endif
 22 
  !endif
23 
 !next
 23 
 !next
24 
!set user_participate_=!append item $directlistparticipate to $user_participate
 24 
 !set user_participate_=!append item $directlistparticipate to $user_participate
25 
!set user_participate_=!listuniq $user_participate_
 25 
 !set user_participate_=!listuniq $user_participate_
26 
!set user_supervise_=!append item $directlistsupervise to $user_supervise
 26 
 !set user_supervise_=!append item $directlistsupervise to $user_supervise
27 
!set user_supervise_=!listuniq $user_supervise_
 27 
 !set user_supervise_=!listuniq $user_supervise_
28 
!! finally leave the old table ! too much trouble
 28 
!! finally leave the old table ! too much trouble
29 
!!!for cls in $user_supervise_
 29 
!!!for cls in $user_supervise_
30 
!!  !if $wims_class isin $cls
 30 
!!  !if $wims_class isin $cls
31 
!!   !let tmp=!replace internal / by , in $cls
 31 
!!   !let tmp=!replace internal / by , in $cls
32 
!!    !let compsup=!append line $tmp to $compsup
 32 
!!    !let compsup=!append line $tmp to $compsup
Line 34... Line 34...
34 
!!!next cls
 34 
!!!next cls
35 
!!!let compsup=!sh echo "$compsup" | sort | uniq;
 35 
!!!let compsup=!sh echo "$compsup" | sort | uniq;
36 
 
 36 
 
37 
!!!read adm/class/graphclass supervise\
 37 
!!!read adm/class/graphclass supervise\
38 
!!$compsup
 38 
!!$compsup
39 
!reset compsup
 39 
 !reset compsup
40 
!if $directcnt=0
 40 
 !if $directcnt=0
41 
  !goto enter
 41 
  !goto enter
42 
!endif
 42 
 !endif
43 
$name_direct:
 43 
 $name_direct:
44 
 
 44 
 
45 
!!!if / isin $user_participate_
 45 
!!!if / isin $user_participate_
46 
!! !for cls in $user_participate_
 46 
!! !for cls in $user_participate_
47 
!!  !if $wims_class isin $cls
 47 
!!  !if $wims_class isin $cls
48 
!!    !let tmp=!replace internal / by , in $cls
 48 
!!    !let tmp=!replace internal / by , in $cls