Subversion Repositories wimsdev

Rev

Rev 10714 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10714 Rev 12488
Line 3... Line 3...
3 
!set wims_name_listvar=$name_listvar
 3 
!set wims_name_listvar=$name_listvar
4 
wims_prefix=class user
 4 
wims_prefix=class user
5 
 
 5 
 
6 
test=!defof class_defined in wimshome/log/classes/$wims_class/.def
 6 
test=!defof class_defined in wimshome/log/classes/$wims_class/.def
7 
!if $test!=yes
 7 
!if $test!=yes
8 
 error=bad_class
 8 
  error=bad_class
9 
 !reset job
 9 
  !reset job
10 
 !exit
 10 
  !exit
11 
!endif
 11 
!endif
12 
 
 12 
 
13 
!readproc tabletheme
 13 
!readproc tabletheme
14 
 
 14 
 
15 
!if $wims_user!=supervisor
 15 
!if $wims_user!=supervisor
16 
 error=not_supervisor
 16 
  error=not_supervisor
17 
 !reset job
 17 
  !reset job
18 
 !exit
 18 
  !exit
19 
!endif
 19 
!endif
20 
version_class=!record 0 of wimshome/log/classes/$wims_class/version
 20 
version_class=!record 0 of wimshome/log/classes/$wims_class/version
21 
!if $version_class>=5
 21 
!if $version_class>=5
22 
  !bound job within listvar,modifvar,addvar,userlist,userprop default listvar
 22 
  !bound job within listvar,modifvar,addvar,userlist,userprop default listvar
23 
!else
 23 
!else
Line 26... Line 26...
26 
 
 26 
 
27 
# make list of technical variable
 27 
# make list of technical variable
28 
!readproc adm/vfilter/listvarfilter.proc
 28 
!readproc adm/vfilter/listvarfilter.proc
29 
 
 29 
 
30 
!if $job!=$empty
 30 
!if $job!=$empty
31 
 !read $job.proc
 31 
  !read $job.proc
32 
!endif
 32 
!endif
33 
 
 33 
 
34 
!set wims_ariane=!append line "$(name_$job)",8 to $wims_ariane
 34 
!set wims_ariane=!append line "$(name_$job)",8 to $wims_ariane