Subversion Repositories wimsdev

Rev

Rev 13211 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13211 Rev 13300
Line 30... Line 30...
30
      !if $uclass isitemof $i
30
      !if $uclass isitemof $i
31
        uclass=$class_parent
31
        uclass=$class_parent
32
        !goto mkstart
32
        !goto mkstart
33
      !endif
33
      !endif
34
      tn=!defof class_typename in wimshome/log/classes/$class_parent/.def
34
      tn=!defof class_typename in wimshome/log/classes/$class_parent/.def
35
      !if $tn=program
35
      !!!if $tn=program
36
        clist=$class_parent
36
      !! clist=$class_parent
37
      !endif
37
      !!!endif
38
    !endif
38
    !endif
39
    clist=!listuniq $clist,$uclass
39
    clist=!listuniq $uclass
40
  !else
40
  !else
41
    !if / isin $uclass
41
    !if / isin $uclass
42
      class_lvl=!translate internal / to , in $uclass
42
      class_lvl=!translate internal / to , in $uclass
43
      class_lvl=$(class_lvl[1])/$(class_lvl[2])
43
      class_lvl=$(class_lvl[1])/$(class_lvl[2])
44
      !if $class_lvl=$uclass
44
      !if $class_lvl=$uclass
45
        class_lvl=
45
        class_lvl=
46
        clist=!listuniq $supclass,$clist,$uclass
46
        clist=$supclass,$uclass
47
      !else
47
      !else
48
        clist=!listuniq $supclass,$clist,$class_lvl,$uclass
48
        clist=$supclass,$class_lvl,$uclass
49
      !endif
49
      !endif
50
    !else
50
    !else
51
      clist=!listuniq $supclass,$uclass
51
      clist=!listuniq $supclass,$uclass
52
    !endif
52
    !endif
53
  !endif
53
  !endif
Line 98... Line 98...
98
      !if $user_external_auth!=$empty
98
      !if $user_external_auth!=$empty
99
        userline_external=$user_external_auth:$u
99
        userline_external=$user_external_auth:$u
100
      !endif
100
      !endif
101
      !if $typename=course
101
      !if $typename=course
102
        !readdef wimshome/log/classes/$uclass/.users/$u
102
        !readdef wimshome/log/classes/$uclass/.users/$u
-
 
103
        !if $user_class=$empty
-
 
104
          obl=!defof class_ocourses in wimshome/log/classes/$class_parent/.def
-
 
105
          obl=!makelist $wims_superclass/x for x in $obl
-
 
106
          !if $uclass isitemof $user_participate and $uclass notitemof $obl
-
 
107
            user_class=!replace internal $supclass/ by in $class_parent
-
 
108
            !setdef !set user_class=$user_class in wimshome/log/classes/$uclass/.users/$u
-
 
109
          !endif
-
 
110
        !endif
103
        !if $user_class!=$empty
111
        !if $user_class!=$empty
104
          !appendfile wimshome/log/classes/$uclass/.userlist.raw $userline,$user_class
112
          !appendfile wimshome/log/classes/$uclass/.userlist.raw $userline,$user_class
105
          !if $userline_external!=$empty
113
          !if $userline_external!=$empty
106
            !appendfile wimshome/log/classes/$uclass/.userlist_external.raw $userline_external
114
            !appendfile wimshome/log/classes/$uclass/.userlist_external.raw $userline_external
107
          !endif
115
          !endif