Subversion Repositories wimsdev

!read adm/class/classlang names.phtml

!set wims_name_listvar=$name_listvar
wims_prefix=class user

test=!defof class_defined in wimshome/log/classes/$wims_class/.def
!if $test!=yes
 error=bad_class
 !reset job
 !exit
!endif

!readproc tabletheme

!if $wims_user!=supervisor
 error=not_supervisor
 !reset job
 !exit
!endif
version_class=!record 0 of wimshome/log/classes/$wims_class/version
!if $version_class>=5
  !bound job within listvar,modifvar,addvar,userlist,userprop default listvar
!else
  !bound job within listvar,modifvar,addvar,userlist,userprop,oldvar default listvar
!endif

# make list of technical variable
!readproc adm/vfilter/listvarfilter.proc

!if $job!=$empty
 !read $job.proc
!endif

!set wims_ariane=!append line "$(name_$job)",8 to $wims_ariane