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