Subversion Repositories wimsdev

Rev

Rev 10617 | Details | Compare with Previous | 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
12413 bpr 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
10617 guerimand 14
!endif