Subversion Repositories wimsdev

Rev

Rev 17097 | Rev 17145 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17097 Rev 17098
Line 27... Line 27...
27 
  !writefile $clsfile $wims_nowseconds $wims_now
 27 
  !writefile $clsfile $wims_nowseconds $wims_now
28 
  time2=yes
 28 
  time2=yes
29 
!endif
 29 
!endif
30 
!writefile $ufile $wims_nowseconds $wims_now 100000
 30 
!writefile $ufile $wims_nowseconds $wims_now 100000
31 
majdate=$wims_now
 31 
majdate=$wims_now
32 
nbsheet=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
 - 
 
33 
nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
 32 
nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
34 
!for sh=1 to $nbsheet
 33 
!for sh=1 to $nbsheet
35 
  dtsh=!record $sh of wimshome/log/classes/$wims_class/sheets/.sheets
 34 
  dtsh=!record $sh of wimshome/log/classes/$wims_class/sheets/.sheets
36 
  stat=!line 1 of $dtsh
 35 
  stat=!line 1 of $dtsh
37 
  !if $stat!=0
 36 
  !if $stat!=0