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 | - |