Subversion Repositories wimsdev

Rev

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

Rev 4561 Rev 10120
Line 1... Line 1...
1
# Modclass
1
# Modclass
2
# Modifie les propriŽtŽs de la classe qclass
2
# Modifie les proprietes de la classe qclass
3
 
3
 
4
!read scripts/check.class
4
!read scripts/check.class
5
!if $error!=$empty
5
!if $error!=$empty
6
 !exit
6
 !exit
7
!endif
7
!endif
Line 25... Line 25...
25
 !if $n_ == connections
25
 !if $n_ == connections
26
  !readdef $classdeffile
26
  !readdef $classdeffile
27
  !if $v_ notin $class_connections
27
  !if $v_ notin $class_connections
28
    !setdef !set class_connections = $class_connections $v_ in $classdeffile
28
    !setdef !set class_connections = $class_connections $v_ in $classdeffile
29
    !advance set
29
    !advance set
30
  !endif 
30
  !endif
31
 !endif
31
 !endif
32
 
32
 
33
 !if $n_ isitemof name,description
33
 !if $n_ isitemof name,description
34
    !advance name_or_def
34
    !advance name_or_def
35
 !endif
35
 !endif
36
!next i
36
!next i
37
 
37
 
38
!if $set<1
38
!if $set<1
39
 error=nothing done
39
 error=nothing done
40
 !exit
40
 !exit
41
!endif
41
!endif
42
 
42
 
43
#on ne recree l'index des classes que si un nom ou une description a change 
43
# on ne recree l'index des classes que si un nom ou une description a change
44
!if $name_or_def>0
44
!if $name_or_def>0
45
  !sh cd $wims_home/log/classes; ./.build-index
45
  !sh cd $wims_home/log/classes; ./.build-index $qclass
46
!endif
46
!endif