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 | - | ||