Subversion Repositories wimsdev

Rev

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

Rev 14335 Rev 15772
Line 42... Line 42...
42 
    !exit
 42 
    !exit
43 
  !endif
 43 
  !endif
44 
 
 44 
 
45 
  !! check list of value
 45 
  !! check list of value
46 
  tc_value=!listuniq $tc_value
 46 
  tc_value=!listuniq $tc_value
47 
  tc_value=!listcomplement _EMPTY_ in $tc_value
 47 
  tc_value=!listcomplement _EMPTY_,EMPTY,EMPTY_,_EMPTY in $tc_value
48 
  n=!itemcnt $tc_value
 48 
  n=!itemcnt $tc_value
49 
  !if $n<1 or $n>$MAXnbvalue
 49 
  !if $n<1 or $n>$MAXnbvalue
50 
    error=badvaluenb
 50 
    error=badvaluenb
51 
    !reset tc_set
 51 
    !reset tc_set
52 
    !exit
 52 
    !exit
Line 54... Line 54...
54 
  !! old list must be include (or delete value not in use in the class TODO).
 54 
  !! old list must be include (or delete value not in use in the class TODO).
55 
  !! il y a une amélioration à faire pour poster un message et effacer les valeurs qui ne sont plus disponibles.
 55 
  !! il y a une amélioration à faire pour poster un message et effacer les valeurs qui ne sont plus disponibles.
56 
  li=!listcomplement $tc_value in $ol_value
 56 
  li=!listcomplement $tc_value in $ol_value
57 
  !if $li!=$empty
 57 
  !if $li!=$empty
58 
    error=valuedisappear
 58 
    error=valuedisappear
- 
 
 59 
    tc_value=$ol_value
59 
    !reset tc_set
 60 
    !reset tc_set
- 
 
 61 
    !exit
60 
  !endif
 62 
  !endif
61 
  !! save
 63 
  !! --------- save new data
62 
  donnees=$empty
 64 
  donnees=$empty
63 
  !for k=1 to $nblocalvar
 65 
  !for k=1 to $nblocalvar
64 
    !if $k=$stechvar
 66 
    !if $k=$stechvar
65 
      donnees=!append line :$tc_name\
 67 
      donnees=!append line :$tc_name\
66 
$tc_value to $donnees
 68 
$tc_value to $donnees