Rev 23 | Rev 9480 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
!default jobsave=read
!default block=main
coder=!text select $namechars in $coder
secret=!record 0 of $docdir/$doc/.code
secret=!word 1 of $secret
!if $secret!=$coder
job=home
error=bad_code
coder=
!read home.proc
!exit
!endif
coder=
job=$jobsave
!if $noedit!=yes
editable=yes
!endif
eddoc=!record 0 of wimshome/$wims_sesdir/doc.$module_language.editable
eddoc=$eddoc $doc
!writefile wimshome/$wims_sesdir/doc.$module_language.editable $eddoc
!read $job.proc