Subversion Repositories wimsdev

Rev

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

Rev 6868 Rev 8030
Line 17... Line 17...
17 
 supertype=!defof class_type in wimshome/log/classes/$supclass/.def
 17 
 supertype=!defof class_type in wimshome/log/classes/$supclass/.def
18 
 typename=!defof class_typename in wimshome/log/classes/$uclass/.def
 18 
 typename=!defof class_typename in wimshome/log/classes/$uclass/.def
19 
 !if $typename iswordof level program
 19 
 !if $typename iswordof level program
20 
  !exit
 20 
  !exit
21 
 !endif
 21 
 !endif
22
22 
 
23 
 !if $typename issametext course
 23 
 !if $typename issametext course
24 
  class_parent=!defof class_parent in wimshome/log/classes/$uclass/.def
 24 
  class_parent=!defof class_parent in wimshome/log/classes/$uclass/.def
25 
  !if $class_parent!=$empty
 25 
  !if $class_parent!=$empty
26 
   i=!defof class_ocourses in wimshome/log/classes/$class_parent/.def
 26 
   i=!defof class_ocourses in wimshome/log/classes/$class_parent/.def
27 
   i=!makelist $wims_superclass/x for x in $i
 27 
   i=!makelist $wims_superclass/x for x in $i
Line 29... Line 29...
29 
    uclass=$class_parent
 29 
    uclass=$class_parent
30 
    !goto mkstart
 30 
    !goto mkstart
31 
   !endif
 31 
   !endif
32 
  !endif
 32 
  !endif
33 
  clist=$uclass
 33 
  clist=$uclass
34
34 
 
35 
 !else
 35 
 !else
36 
  !if / isin $uclass
 36 
  !if / isin $uclass
37 
   class_lvl=!translate internal / to , in $uclass
 37 
   class_lvl=!translate internal / to , in $uclass
38 
   class_lvl=$(class_lvl[1])/$(class_lvl[2])
 38 
   class_lvl=$(class_lvl[1])/$(class_lvl[2])
39 
   !if $class_lvl=$uclass
 39 
   !if $class_lvl=$uclass
Line 91... Line 91...
91 
 
 91 
 
92 
   !reset userline_external
 92 
   !reset userline_external
93 
   !if $user_external_auth!=$empty
 93 
   !if $user_external_auth!=$empty
94 
     userline_external=$user_external_auth:$u
 94 
     userline_external=$user_external_auth:$u
95 
   !endif
 95 
   !endif
96
96 
 
97 
   !if $typename=course
 97 
   !if $typename=course
98 
    !readdef wimshome/log/classes/$uclass/.users/$u
 98 
    !readdef wimshome/log/classes/$uclass/.users/$u
99 
    !if $user_class!=$empty
 99 
    !if $user_class!=$empty
100 
     !appendfile wimshome/log/classes/$uclass/.userlist.raw $userline,$user_class
 100 
     !appendfile wimshome/log/classes/$uclass/.userlist.raw $userline,$user_class
101 
     !if $userline_external!=$empty
 101 
     !if $userline_external!=$empty
102 
       !appendfile wimshome/log/classes/$uclass/.userlist_external.raw $userline_external
 102 
       !appendfile wimshome/log/classes/$uclass/.userlist_external.raw $userline_external
103 
     !endif
 103 
     !endif
104 
    !endif
 104 
    !endif
105 
   !else
 105 
   !else
106
106 
 
107 
    !if $supclass=$uclass or $uclass isitemof $user_participate
 107 
    !if $supclass=$uclass or $uclass isitemof $user_participate
108 
     !appendfile wimshome/log/classes/$uclass/.userlist.raw $userline
 108 
     !appendfile wimshome/log/classes/$uclass/.userlist.raw $userline
109 
     !if $userline_external!=$empty
 109 
     !if $userline_external!=$empty
110 
       !appendfile wimshome/log/classes/$uclass/.userlist_external.raw $userline_external
 110 
       !appendfile wimshome/log/classes/$uclass/.userlist_external.raw $userline_external
111 
     !endif
 111 
     !endif
112 
   !endif
 112 
   !endif
113
113 
 
114 
    !if $supclass!=$uclass
 114 
    !if $supclass!=$uclass
115 
     !appendfile wimshome/log/classes/$supclass/.userlist.raw $userline
 115 
     !appendfile wimshome/log/classes/$supclass/.userlist.raw $userline
116 
     !if $userline_external!=$empty
 116 
     !if $userline_external!=$empty
117 
       !appendfile wimshome/log/classes/$supclass/.userlist_external.raw $userline_external
 117 
       !appendfile wimshome/log/classes/$supclass/.userlist_external.raw $userline_external
118 
     !endif
 118 
     !endif
Line 121... Line 121...
121 
       !if $userline_external!=$empty
 121 
       !if $userline_external!=$empty
122 
        !appendfile wimshome/log/classes/$class_lvl/.userlist_external.raw $userline_external
 122 
        !appendfile wimshome/log/classes/$class_lvl/.userlist_external.raw $userline_external
123 
       !endif
 123 
       !endif
124 
     !endif
 124 
     !endif
125 
    !endif
 125 
    !endif
126
126 
 
127 
   !endif
 127 
   !endif
128
128 
 
129 
  !endif
 129 
  !endif
130
130 
 
131 
 !next u
 131 
 !next u
132 
!next N
 132 
!next N
133 
 
 133 
 
134 
basedir=$wims_home/log/classes
 134 
basedir=$wims_home/log/classes
135 
basedir2=wimshome/log/classes
 135 
basedir2=wimshome/log/classes