Subversion Repositories wimsdev

Rev

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

Rev 11107 Rev 11114
Line 1... Line 1...
1 
 
 1 
 
2 
!if $formula=$empty
 2 
!if $formula=$empty
3 
 job=
 3 
  job=
4 
 !exit
 - 
 
5 
!endif
 - 
 
6 
 
 - 
 
7 
 !if $formula=prep
 - 
 
8 
  !exit
 4 
  !exit
9 
 !endif
 5 
!endif
- 
 
 6 
 
- 
 
 7 
!set min_weight = 0
- 
 
 8 
!set max_weight = 100000
- 
 
 9 
!set min_maxscore = 1
- 
 
 10 
!set max_maxscore = 1000
- 
 
 11 
 
- 
 
 12 
!if $formula=prep
- 
 
 13 
  !exit
- 
 
 14 
!endif
- 
 
 15 
 
10 
 !reset formula reg
 16 
!reset formula reg
11 
 reg=
 17 
reg=
12 
 !set tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf
 18 
!set tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf
13 
 !distribute words $tmp into tmp_w,tmp_s,tmp_ss
 19 
!distribute words $tmp into tmp_w,tmp_s,tmp_ss
14 
 !for i=1 to $totsheets
 20 
!for i=1 to $totsheets
15 
  !bound w$i between 0 and 100000 default $tmp_w
 21 
  !bound w$i between $min_weight and $max_weight default $tmp_w
16 
  !bound s$i between integer 0 and 6 default $tmp_s
 22 
  !bound s$i between integer 0 and 6 default $tmp_s
17 
  !bound ss$i between integer 0 and 2 default $tmp_ss
 23 
  !bound ss$i between integer 0 and 2 default $tmp_ss
18 
  reg=!append line $(w$i) $(s$i) $(ss$i) to $reg
 24 
  reg=!append line $(w$i) $(s$i) $(ss$i) to $reg
19 
 !next i
 25 
!next i
20 
 !reset tmp tmp_w tmp_s tmp_ss
 26 
!reset tmp tmp_w tmp_s tmp_ss
21 
 !bound maxscore between integer 1 and 1000 default 10
 27 
!bound maxscore between integer $min_maxscore and $max_maxscore default 10
22 
 scoremax=$maxscore
 28 
scoremax=$maxscore
23 
 defaultformula=$reg
 29 
defaultformula=$reg
24 
 !writefile wimshome/log/classes/$wims_class/sheets/.severity $maxscore\
 30 
!writefile wimshome/log/classes/$wims_class/sheets/.severity $maxscore\
25 
$reg
 31 
$reg
26 
 
 32 
 
27 
reg=
 33 
reg=
28 
!for i=1 to $totexams
 34 
!for i=1 to $totexams
29 
 !bound ew$i between 0 and 100000 default 1
 35 
  !bound ew$i between 0 and 100000 default 1
30 
 reg=!append line $(ew$i) to $reg
 36 
  reg=!append line $(ew$i) to $reg
31 
!next i
 37 
!next i
32 
!writefile wimshome/log/classes/$wims_class/exams/.eseverity $reg
 38 
!writefile wimshome/log/classes/$wims_class/exams/.eseverity $reg
33 
 
 39 
 
34 
!read var.proc.weights
 40 
!read adm/class/sheetweights
35 
job=
 - 
 
36 
 
 -