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 
 
 -