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