Subversion Repositories wimsdev

Rev

Rev 2286 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2286 Rev 9480
Line 47... Line 47...
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
 
-
 
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
-
 
78
 
52
!endif
79
!endif
53
 
80
 
54
serial=1
81
serial=1
55
:redo
82
:redo
56
!if class = $doctype
83
!if class = $doctype