Subversion Repositories wimsdev

Rev

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 program
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
    clist=$uclass
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
        clist=$supclass,$uclass
46
        clist=!listuniq $supclass,$clist,$uclass
44
      !else
47
      !else
45
        clist=$supclass,$class_lvl,$uclass
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)]