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 |