Subversion Repositories wimsdev

Rev

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

Rev 10762 Rev 13147
Line 24... Line 24...
24 
 
 24 
 
25 
!for cls in $user_participate
 25 
!for cls in $user_participate
26 
  !set sub_=!record 0 of wimshome/log/classes/$cls/courses
 26 
  !set sub_=!record 0 of wimshome/log/classes/$cls/courses
27 
  !set sub_cnt=!linecnt $sub_
 27 
  !set sub_cnt=!linecnt $sub_
28 
  !if $sub_cnt>0
 28 
  !if $sub_cnt>0
29 
     !for k_=1 to $sub_cnt
 29 
    !for k_=1 to $sub_cnt
30 
       !set parent_c=!defof class_parent in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.def
 30 
      !set parent_c=!defof class_parent in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.def
31 
       !set split=!replace internal / by , in $(sub_[$k_;1])
 31 
      !set split=!replace internal / by , in $(sub_[$k_;1])
32 
       !set progstyle=!defof class_progstyle in wimshome/log/classes/$wims_superclass/$(split[1])/$(split[3])/.def
 32 
      !set progstyle=!defof class_progstyle in wimshome/log/classes/$wims_superclass/$(split[1])/$(split[3])/.def
33 
       !if optional iswordof $progstyle
 33 
      !if optional iswordof $progstyle
34 
          !set inscrit=!defof user_class in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.users/$wims_user
 34 
        !set inscrit=!defof user_class in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.users/$wims_user
35 
       !endif
 35 
      !endif
36 
       !if mandatory iswordof $progstyle or $(split[1])/$(split[2]) iswordof $inscrit
 36 
      !if mandatory iswordof $progstyle or $(split[1])/$(split[2]) iswordof $inscrit
37 
          !set user_participate=!append item $wims_superclass/$(sub_[$k_;1]) to $user_participate
 37 
        !set user_participate=!append item $wims_superclass/$(sub_[$k_;1]) to $user_participate
- 
 
 38 
      !else
- 
 
 39 
        !set user_optional=!append item $wims_superclass/$(sub_[$k_;1]) to $user_optional
38 
       !endif
 40 
      !endif
39 
     !next
 41 
    !next
40 
  !endif
 42 
  !endif
41 
!next
 43 
!next
42 
 
 44 
 
43 
!let compsup=$empty
 45 
!let compsup=$empty
44 
!for cls in $user_participate
 46 
!for cls in $user_participate,$user_optional
45 
  !if $wims_class isin $cls
 47 
  !if $wims_class isin $cls
46 
    !let tmp=!replace internal / by , in $cls
 48 
    !let tmp=!replace internal / by , in $cls
47 
    !let compsup=!append line $tmp to $compsup
 49 
    !let compsup=!append line $tmp to $compsup
48 
  !endif
 50 
  !endif
49 
!next cls
 51 
!next cls