Subversion Repositories wimsdev

Rev

Rev 9480 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
 
2
!if $abandon!=$empty
12490 bpr 3
  job=home
4
  !changeto home.proc
23 reyssat 5
!endif
6
 
7
!if $wims_class!=$empty
12490 bpr 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
23 reyssat 16
!endif
17
 
18
tit=$titr
19
author=$authorr
20
email=$emailr
1499 bpr 21
desc=$descr
23 reyssat 22
!if $tit=$empty
12490 bpr 23
  !exit
23 reyssat 24
!endif
25
 
26
!if class != $doctype
12490 bpr 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
9480 bpr 52
 
12490 bpr 53
  coderr=!trim $coderr
54
  coderr2=!trim $coderr2
55
  m1=!charcnt $coderr
56
  m2=!charcnt $coderr2
57
  coderr=!text select $namechars in $coderr
58
  coderr2=!text select $namechars in $coderr2
59
  n1=!charcnt $coderr
60
  n2=!charcnt $coderr2
61
  !if $m1!=$n1 or $m2!=$n2
62
    error=bad_newcode
63
    !exit
64
  !endif
65
  !if $coderr!=$coderr2
66
    error=code_discord
67
    !exit
68
  !endif
69
  n=!charcnt $coderr
70
  !if $n<$codemin
71
    error=small_code
72
    !exit
73
  !endif
74
  !if $n>$codemax
75
    error=big_code
76
    !exit
77
  !endif
9480 bpr 78
 
23 reyssat 79
!endif
80
 
81
serial=1
82
:redo
83
!if class = $doctype
12490 bpr 84
  doc=c$serial
23 reyssat 85
!else
12490 bpr 86
  doc=!randint 10^6,10^8
23 reyssat 87
!endif
88
test=!record 0 of $docdir/$doc/.def
89
!if $test!=$empty
12490 bpr 90
  !advance serial
91
  !goto redo
23 reyssat 92
!endif
93
 
94
!read propreg.proc
95
!if $error!=$empty
12490 bpr 96
  !exit
23 reyssat 97
!endif
98
 
99
editable=yes
100
eddoc=!record 0 of wimshome/$wims_sesdir/doc.$module_language.editable
101
eddoc=$eddoc $doc
102
!writefile wimshome/$wims_sesdir/doc.$module_language.editable $eddoc
103
!mexec scripts/setcode.sh
104
!read adm/docindex.proc
105
job=creat2