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)]