Subversion Repositories wimsdev

Rev

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

Rev 8311 Rev 10922
Line 7... Line 7...
7
 !if $formula=prep
7
 !if $formula=prep
8
  !exit
8
  !exit
9
 !endif
9
 !endif
10
 !reset formula reg
10
 !reset formula reg
11
 reg=
11
 reg=
-
 
12
 !set tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf
-
 
13
 !distribute words $tmp into tmp_w,tmp_s,tmp_ss
12
 !for i=1 to $totsheets
14
 !for i=1 to $totsheets
13
  !bound w$i between 0 and 100000 default 1
15
  !bound w$i between 0 and 100000 default $tmp_w
14
  !bound s$i between integer 0 and 6 default 2
16
  !bound s$i between integer 0 and 6 default $tmp_s
15
  !bound ss$i between integer 0 and 2 default 0
17
  !bound ss$i between integer 0 and 2 default $tmp_ss
16
  reg=!append line $(w$i) $(s$i) $(ss$i) to $reg
18
  reg=!append line $(w$i) $(s$i) $(ss$i) to $reg
17
 !next i
19
 !next i
-
 
20
 !reset tmp tmp_s tmp_ss
18
 !bound maxscore between integer 1 and 1000 default 10
21
 !bound maxscore between integer 1 and 1000 default 10
19
 scoremax=$maxscore
22
 scoremax=$maxscore
20
 defaultformula=$reg
23
 defaultformula=$reg
21
 !writefile wimshome/log/classes/$wims_class/sheets/.severity $maxscore\
24
 !writefile wimshome/log/classes/$wims_class/sheets/.severity $maxscore\
22
$reg
25
$reg