Subversion Repositories wimsdev

Rev

Rev 2477 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2477 Rev 12412
Line 4... Line 4...
4
!if destroy isitemof $connopt
4
!if destroy isitemof $connopt
5
 !read adm/connect/main.proc delclass $connident $connclass
5
  !read adm/connect/main.proc delclass $connident $connclass
6
 connopt=
6
  connopt=
7
!endif
7
!endif
8
 
8
 
9
classdeffile=wimshome/log/classes/$wims_class/.def
9
classdeffile=wimshome/log/classes/$wims_class/.def
10
conn=!defof class_connections in $classdeffile
10
conn=!defof class_connections in $classdeffile
11
conn=!items2words $conn
11
conn=!items2words $conn
12
conn=!words2items $conn
12
conn=!words2items $conn
13
con2=
13
con2=
14
!for c in $conn
14
!for c in $conn
15
 cc=!translate + to $ $ in $c
15
  cc=!translate + to $ $ in $c
16
 cc=!word 1 of $cc
16
  cc=!word 1 of $cc
17
 !if $cc!=$data
17
  !if $cc!=$data
18
  con2=$con2 $c
18
    con2=$con2 $c
19
 !endif
19
  !endif
20
!next c
20
!next c
21
 
21
 
22
con2=!trim $con2
22
con2=!trim $con2
23
!setdef !set class_connections=$con2 in $classdeffile
23
!setdef !set class_connections=$con2 in $classdeffile
24
class_connections=$con2
24
class_connections=$con2
25
!read connect/data.proc
25
!read connect/data.proc
26
job2=first
26
job2=first
27
 
-