Subversion Repositories wimsdev

Rev

Rev 9480 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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