Subversion Repositories wimsdev

Rev

Rev 5194 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
 
2
parent=gateway
3
!if $cancel!=$empty
12617 bpr 4
  job=first
5
  !changeto jobs/$job.proc
23 reyssat 6
!endif
7
 
8
!if $confirm=$empty
12617 bpr 9
  pass=!defof class_password in $classdir1/.def
10
  passs=!defof user_password in $classdir1/supervisor
11
  !read adm/levelname.phtml
12
  !exit
23 reyssat 13
!endif
14
 
15
title=!trim $title
16
title=!replace internal , by , in $title
17
!if $title=$empty
12617 bpr 18
  error=empty_data
19
  !exit
23 reyssat 20
!endif
21
 
22
!read adm/gateway/addlevel $sup,$title
23
 
24
!if $error!=$empty
12617 bpr 25
  !exit
23 reyssat 26
!endif
27
 
28
!read adm/gateway/mkindex
29
!reset title,sup,passs,alevel
30
job=first
31
!changeto jobs/$job.proc