Subversion Repositories wimsdev

Rev

Rev 10922 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !set t=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
  2. !set wlist=!record 0 of wimshome/log/classes/$wims_class/sheets/.weight
  3. !set aclist=
  4. !for i=1 to $t
  5.  !set s_$i=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
  6.  !set a_=!line 1 of $(s_$i)
  7.  !if $a_>=1 and $a_<=2
  8.   !set aclist=!append item $i to $aclist
  9.  !endif
  10. !next i
  11. !set n=!itemcnt $aclist
  12.