Subversion Repositories wimsdev

Rev

Rev 11107 | Rev 11962 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

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