Rev 9491 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 23 | reyssat | 1 | !if class = $doctype |
| 12490 | bpr | 2 | job=home |
| 3 | error=class_no_right |
||
| 4 | !exit |
||
| 23 | reyssat | 5 | !endif |
| 9480 | bpr | 6 | |
| 7 | !!if $doctype!=class |
||
| 8 | !! noedit=yes |
||
| 9 | !!!endif |
||
| 9491 | bpr | 10 | |
| 11 | +!!if read code is empty, permission to read is given |
||
| 12 | +!if $doctype notwordof class devel |
||
| 13 | + secret=!record 0 of $docdir/$doc/.code |
||
| 14 | + secret=!line 2 of $secret |
||
| 15 | + secret=!word 1 of $secret |
||
| 16 | + !if $secret=$empty |
||
| 17 | + readable=yes |
||
| 18 | + !if $noedit=yes |
||
| 19 | + job=read |
||
| 20 | + !endif |
||
| 21 | + !endif |
||
| 22 | +!endif |