Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
 
2
!if $abandon!=$empty
3
 job=home
4
 !changeto home.proc
5
!endif
6
 
7
!if $wims_class!=$empty
8
 !if $wims_user=supervisor
9
  Docdir=log/classes/$wims_class/doc
10
  docdir=wimshome/$Docdir
11
  doctype=class
12
 !else
13
  job=home
14
  !exit
15
 !endif
16
!endif
17
 
18
tit=$titr
19
author=$authorr
20
email=$emailr
1499 bpr 21
desc=$descr
23 reyssat 22
!if $tit=$empty
23
 !exit
24
!endif
25
 
26
!if class != $doctype
27
 coder=!trim $coder
28
 coder2=!trim $coder2
29
 m1=!charcnt $coder
30
 m2=!charcnt $coder2
31
 coder=!text select $namechars in $coder
32
 coder2=!text select $namechars in $coder2
33
 n1=!charcnt $coder
34
 n2=!charcnt $coder2
35
 !if $m1!=$n1 or $m2!=$n2
36
  error=bad_newcode
37
  !exit
38
 !endif
39
 !if $coder!=$coder2
40
  error=code_discord
41
  !exit
42
 !endif
43
 n=!charcnt $coder
44
 !if $n<$codemin
45
  error=small_code
46
  !exit
47
 !endif
48
 !if $n>$codemax
49
  error=big_code
50
  !exit
51
 !endif
52
!endif
53
 
54
serial=1
55
:redo
56
!if class = $doctype
57
 doc=c$serial
58
!else
59
 doc=!randint 10^6,10^8
60
!endif
61
test=!record 0 of $docdir/$doc/.def
62
!if $test!=$empty
63
 !advance serial
64
 !goto redo
65
!endif
66
 
67
!read propreg.proc
68
!if $error!=$empty
69
 !exit
70
!endif
71
 
72
editable=yes
73
eddoc=!record 0 of wimshome/$wims_sesdir/doc.$module_language.editable
74
eddoc=$eddoc $doc
75
!writefile wimshome/$wims_sesdir/doc.$module_language.editable $eddoc
76
!mexec scripts/setcode.sh
77
!read adm/docindex.proc
78
job=creat2
79