Rev 11062 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 11062 | Rev 13211 | ||
---|---|---|---|
Line 16... | Line 16... | ||
16 | reset class_lvl |
16 | reset class_lvl |
17 | 17 | ||
18 | !if $supclass!=$empty and $supclass!=$uclass |
18 | !if $supclass!=$empty and $supclass!=$uclass |
19 | supertype=!defof class_type in wimshome/log/classes/$supclass/.def |
19 | supertype=!defof class_type in wimshome/log/classes/$supclass/.def |
20 | typename=!defof class_typename in wimshome/log/classes/$uclass/.def |
20 | typename=!defof class_typename in wimshome/log/classes/$uclass/.def |
21 | - | ||
- | 21 | !!case of program can occur in case of intercourse |
|
22 | !if $typename iswordof level |
22 | !if $typename iswordof level |
23 | !exit |
23 | !exit |
24 | !endif |
24 | !endif |
25 | - | ||
26 | !if $typename issametext course |
25 | !if $typename issametext course |
27 | class_parent=!defof class_parent in wimshome/log/classes/$uclass/.def |
26 | class_parent=!defof class_parent in wimshome/log/classes/$uclass/.def |
28 | !if $class_parent!=$empty |
27 | !if $class_parent!=$empty |
29 | i=!defof class_ocourses in wimshome/log/classes/$class_parent/.def |
28 | i=!defof class_ocourses in wimshome/log/classes/$class_parent/.def |
30 | i=!makelist $wims_superclass/x for x in $i |
29 | i=!makelist $wims_superclass/x for x in $i |
31 | !if $uclass isitemof $i |
30 | !if $uclass isitemof $i |
32 | uclass=$class_parent |
31 | uclass=$class_parent |
33 | !goto mkstart |
32 | !goto mkstart |
- | 33 | !endif |
|
- | 34 | tn=!defof class_typename in wimshome/log/classes/$class_parent/.def |
|
- | 35 | !if $tn=program |
|
- | 36 | clist=$class_parent |
|
34 | !endif |
37 | !endif |
35 | !endif |
38 | !endif |
36 |
|
39 | clist=!listuniq $clist,$uclass |
37 | !else |
40 | !else |
38 | !if / isin $uclass |
41 | !if / isin $uclass |
39 | class_lvl=!translate internal / to , in $uclass |
42 | class_lvl=!translate internal / to , in $uclass |
40 | class_lvl=$(class_lvl[1])/$(class_lvl[2]) |
43 | class_lvl=$(class_lvl[1])/$(class_lvl[2]) |
41 | !if $class_lvl=$uclass |
44 | !if $class_lvl=$uclass |
42 | class_lvl= |
45 | class_lvl= |
43 |
|
46 | clist=!listuniq $supclass,$clist,$uclass |
44 | !else |
47 | !else |
45 |
|
48 | clist=!listuniq $supclass,$clist,$class_lvl,$uclass |
46 | !endif |
49 | !endif |
47 | !else |
50 | !else |
48 | clist=!listuniq $supclass,$uclass |
51 | clist=!listuniq $supclass,$uclass |
49 | !endif |
52 | !endif |
50 | !endif |
53 | !endif |
Line 136... | Line 139... | ||
136 | !sh sort -f $basedir/$c/.userlist.raw >$basedir/$c/.userlist 2>/dev/null\ |
139 | !sh sort -f $basedir/$c/.userlist.raw >$basedir/$c/.userlist 2>/dev/null\ |
137 | rm -f $basedir/$c/.userlist.raw 2>/dev/null\ |
140 | rm -f $basedir/$c/.userlist.raw 2>/dev/null\ |
138 | sort -f $basedir/$c/.userlist_external.raw > $basedir/$c/.userlist_external 2>/dev/null\ |
141 | sort -f $basedir/$c/.userlist_external.raw > $basedir/$c/.userlist_external 2>/dev/null\ |
139 | rm -f $basedir/$c/.userlist_external.raw 2>/dev/null |
142 | rm -f $basedir/$c/.userlist_external.raw 2>/dev/null |
140 | !next |
143 | !next |
- | 144 | ||
141 | ## Now the files .userlist and .userlist_external are created in the classes of $clist, |
145 | ## Now the files .userlist and .userlist_external are created in the classes of $clist, |
142 | ## so in the sup classes of $uclass. Do we need to do that (it is done many times for |
146 | ## so in the sup classes of $uclass. Do we need to do that (it is done many times for |
143 | ## the portal ... |
147 | ## the portal ... |
144 | 148 | ||
145 | ## do now the .usernextlist and .userprevlist only in the class $uclass |
149 | ## do now the .usernextlist and .userprevlist only in the class $uclass |
Line 149... | Line 153... | ||
149 | rm -f $basedir/$c/.userprevlist.raw 2>/dev/null |
153 | rm -f $basedir/$c/.userprevlist.raw 2>/dev/null |
150 | !set nbuser_=!recordcnt $basedir2/$c/.userlist |
154 | !set nbuser_=!recordcnt $basedir2/$c/.userlist |
151 | !if $nbuser_=0 |
155 | !if $nbuser_=0 |
152 | !break |
156 | !break |
153 | !endif |
157 | !endif |
154 | - | ||
155 | record_start = 1 |
158 | record_start = 1 |
156 | remaining = $nbuser_ - 1 |
159 | remaining = $nbuser_ - 1 |
157 | ## On parcourt nos users par paquets de $pack_size |
160 | ## On parcourt nos users par paquets de $pack_size |
158 | !while $remaining > 0 |
161 | !while $remaining > 0 |
159 | nb_processing = $[min($remaining, $pack_size)] |
162 | nb_processing = $[min($remaining, $pack_size)] |