Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
23 reyssat 1
 
2
!default jobsave=read
3
!default block=main
4
 
5
coder=!text select $namechars in $coder
6
secret=!record 0 of $docdir/$doc/.code
7
secret=!word 1 of $secret
8
!if $secret!=$coder
9
 job=home
10
 error=bad_code
11
 coder=
12
 !read home.proc
13
 !exit
14
!endif
15
 
16
coder=
17
job=$jobsave
18
!if $noedit!=yes
19
 editable=yes
20
!endif
21
eddoc=!record 0 of wimshome/$wims_sesdir/doc.$module_language.editable
22
eddoc=$eddoc $doc
23
!writefile wimshome/$wims_sesdir/doc.$module_language.editable $eddoc
24
!read $job.proc
25