Subversion Repositories wimsdev

Rev

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

Rev 14335 Rev 15772
Line 46... Line 46...
46 
    !endif
 46 
    !endif
47 
  !next rac
 47 
  !next rac
48 
 
 48 
 
49 
  !! check list of value
 49 
  !! check list of value
50 
  tc_value=!listuniq $tc_value
 50 
  tc_value=!listuniq $tc_value
- 
 
 51 
  tc_value=!text select char azertyuiopqsdfghjklmwxcvbnAZERTYUIOPQSDFGHJKLMWXCVBN,1234567890 in $tc_value
51 
  tc_value=!listcomplement _EMPTY_ in $tc_value
 52 
  tc_value=!listcomplement EMPTY in $tc_value
52 
  n=!itemcnt $tc_value
 53 
  n=!itemcnt $tc_value
53 
  !if $n<1 or $n>$MAXnbvalue
 54 
  !if $n<1 or $n>$MAXnbvalue
54 
    error=badvaluenb
 55 
    error=badvaluenb
55 
    !reset tc_set
 56 
    !reset tc_set
56 
    !exit
 57 
    !exit