Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
10617 guerimand 1
!! test if vote use model in the class (waiting sharing/share techvar)
2
cnt_=!recordcnt wimshome/log/classes/$wims_class/vote/.votes
3
!if $cnt_>0
4
 votemodel=no
5
 k_=0
6
 !while $k_<$cnt_ and $votemodel=no
7
  !increase k_
8
  tmp_=!record $k_ of wimshome/log/classes/$wims_class/vote/.votes
9
  tmp_=!line 6 of $tmp_
10
  !if $tmp_ isitemof accessvar,group
11
   votemodel=yes
12
  !endif
13
 !endwhile
14
!endif