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