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