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