Rev 9909 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9909 | Rev 13228 | ||
---|---|---|---|
Line 12... | Line 12... | ||
12 | !else |
12 | !else |
13 | type1=sheet |
13 | type1=sheet |
14 | q=!translate internal ./,;?* to $ $ in $qsheet |
14 | q=!translate internal ./,;?* to $ $ in $qsheet |
15 | !endif |
15 | !endif |
16 | 16 | ||
17 |
|
17 | # Si le parametre $q contient un caractere special, on abandonne |
18 | 18 | ||
19 | !if $ $ isin $q |
19 | !if $ $ isin $q |
20 | q= |
20 | q= |
21 | !endif |
21 | !endif |
22 | 22 | ||
23 | listfile=wimshome/log/classes/$qclass/$type/.$type |
23 | listfile=wimshome/log/classes/$qclass/$type/.$type |
24 | 24 | ||
25 |
|
25 | # On compte le nombre d'elements de type $qtype de la classe $qclass |
26 | cnt=!recordcnt $listfile |
26 | cnt=!recordcnt $listfile |
27 | 27 | ||
28 |
|
28 | # Si l'element $q n'existe pas, on abandonne |
29 | !if $q=$empty |
29 | !if $q=$empty |
30 | error=undefined query id for type $type1 |
30 | error=undefined query id for type $type1 |
31 | !exit |
31 | !exit |
32 | !else |
32 | !else |
33 | !if $q>$cnt |
33 | !if $q>$cnt |
34 | error=element #$q of type $type1 does not exist in this class ($qclass) |
34 | error=element #$q of type $type1 does not exist in this class ($qclass) |
35 | !exit |
35 | !exit |
36 | !endif |
36 | !endif |
37 | !endif |
37 | !endif |
38 | 38 | ||
39 | # L'element existe. on initialise la |
39 | # L'element existe. on initialise la variable $(type1)_id |
- | 40 | !! WARNING : pour l'instant assigner une valeur à la variable wims_sheet fait planter WIMS !! |
|
40 |
|
41 | $(type1)_id=$q |
41 | qfile=wimshome/log/classes/$qclass/$type/.$type1$q |
42 | qfile=wimshome/log/classes/$qclass/$type/.$type1$q |
42 | qproperties=!record $q of $listfile |
43 | qproperties=!record $q of $listfile |
43 | - | ||
44 | - |