Subversion Repositories wimsdev

Rev

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
#si le parametre $q contient un caractere special, on abandonne
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
#On compte le nombre d'elements de type $qtype de la classe $qclass
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
#Si l'element $q n'existe pas, on abandonne
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 varible wims_$type1
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
wims_$type1=$q
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
 
-