Subversion Repositories wimsdev

Rev

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

Rev 4561 Rev 5273
Line 25... Line 25...
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 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