Rev 12815 | Rev 15772 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 12815 | Rev 14335 | ||
---|---|---|---|
Line 28... | Line 28... | ||
28 | tc_name=!text select 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ in $tc_name |
28 | tc_name=!text select 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ in $tc_name |
29 | tc_name=!nospace $tc_name |
29 | tc_name=!nospace $tc_name |
30 | tc_name=!lower $tc_name |
30 | tc_name=!lower $tc_name |
31 | n=!charcnt $tc_name |
31 | n=!charcnt $tc_name |
32 | !if $n>$MAXcharname or $n<1 |
32 | !if $n>$MAXcharname or $n<1 |
33 |
|
33 | error=badnamelen |
34 |
|
34 | !reset tc_set |
35 |
|
35 | !exit |
36 | !endif |
36 | !endif |
37 | 37 | ||
38 | !! check list of name already in use |
38 | !! check list of name already in use |
39 | !if $tc_name isitemof $tv_listallname and $tc_name!=$ol_name |
39 | !if $tc_name isitemof $tv_listallname and $tc_name!=$ol_name |
40 |
|
40 | error=namealreadyuse |
41 |
|
41 | !reset tc_set |
42 |
|
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_ 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 |
|
50 | error=badvaluenb |
51 |
|
51 | !reset tc_set |
52 |
|
52 | !exit |
53 | !endif |
53 | !endif |
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 |
|
58 | error=valuedisappear |
59 |
|
59 | !reset tc_set |
60 | !endif |
60 | !endif |
61 | !! save |
61 | !! save |
62 | donnees=$empty |
62 | donnees=$empty |
63 | !for k=1 to $nblocalvar |
63 | !for k=1 to $nblocalvar |
64 | !if $k=$stechvar |
64 | !if $k=$stechvar |
65 |
|
65 | donnees=!append line :$tc_name\ |
66 | $tc_value to $donnees |
66 | $tc_value to $donnees |
67 |
|
67 | !else |
68 |
|
68 | tmp=!record $k of wimshome/log/classes/$wims_class/.techvar |
69 |
|
69 | donnees=!append line :$tmp to $donnees |
70 |
|
70 | !endif |
71 | !next k |
71 | !next k |
72 | !filewrite wimshome/log/classes/$wims_class/.techvar $donnees |
72 | !filewrite wimshome/log/classes/$wims_class/.techvar $donnees |
73 | !if $ol_name!=$tc_name |
73 | !if $ol_name!=$tc_name |
74 | nb=!recordcnt wimshome/log/classes/$tv_Sclass/.indextechvar |
74 | nb=!recordcnt wimshome/log/classes/$tv_Sclass/.indextechvar |
75 |
|
75 | donnees=$empty |
76 |
|
76 | !for k=1 to $nb |
77 |
|
77 | tmp=!record $k of wimshome/log/classes/$tv_Sclass/.indextechvar |
78 |
|
78 | !if $(tmp[2])=$wims_class and $(tmp[3])=$stechvar |
79 |
|
79 | donnees=!append line :$tc_name,$wims_class,$stechvar to $donnees |
80 |
|
80 | !else |
81 |
|
81 | donnees=!append line :$tmp to $donnees |
82 |
|
82 | !endif |
83 | !next k |
83 | !next k |
84 |
|
84 | !filewrite wimshome/log/classes/$tv_Sclass/.indextechvar $donnees |
85 | !endif |
85 | !endif |
86 | !restart module=adm/class/techvar |
86 | !restart module=adm/class/techvar |
87 | !endif |
87 | !endif |