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