Subversion Repositories wimsdev

Rev

Rev 15012 | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !reset fw_list
  2. !!set test=!defof allowed_optional_module in wimshome/log/wims.conf
  3. !if class/freework isitemof $wims_allowed_optional_module and $seq_open!=yes
  4.   !set freeworkcnt=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freeworks
  5.   !for i=1 to $freeworkcnt
  6.     !set d_=!record $i of wimshome/log/classes/$wims_class/freeworks/.freeworks
  7.     !distribute lines $d_ into s_,t_,a_,e_,c_,o_
  8.     !if $s_>0 and $s_<3
  9.       !set fw_list=!append item $i to $fw_list
  10.     !endif
  11.   !next i
  12.   !set fwcnt=!itemcnt $fw_list
  13. !else
  14.   !let freeworkcnt=0
  15.   !let fwcnt=0
  16. !endif
  17.