Subversion Repositories wimsdev

data=$connident/$connclass

!if destroy isitemof $connopt
 !read adm/connect/main.proc delclass $connident $connclass
 connopt=
!endif

classdeffile=wimshome/log/classes/$wims_class/.def
conn=!defof class_connections in $classdeffile
conn=!items2words $conn
conn=!words2items $conn
con2=
!for c in $conn
 cc=!translate + to $ $ in $c
 cc=!word 1 of $cc
 !if $cc!=$data
  con2=$con2 $c
 !endif
!next c

con2=!trim $con2
!setdef !set class_connections=$con2 in $classdeffile
class_connections=$con2
!read connect/data.proc
job2=first