Subversion Repositories wimsdev

!if $formula=$empty
 job=
 !exit
!endif

 !if $formula=prep
  !exit
 !endif
 !reset formula reg
 reg=
 !for i=1 to $totsheets
  !bound w$i between 0 and 100000 default 1
  !bound s$i between integer 0 and 6 default 2
  !bound ss$i between integer 0 and 2 default 0
  reg=!append line $(w$i) $(s$i) $(ss$i) to $reg
 !next i
 !bound maxscore between integer 1 and 1000 default 10
 scoremax=$maxscore
 defaultformula=$reg
 !writefile wimshome/log/classes/$wims_class/sheets/.severity $maxscore\
$reg

reg=
!for i=1 to $totexams
 !bound ew$i between 0 and 100000 default 1
 reg=!append line $(ew$i) to $reg
!next i
!writefile wimshome/log/classes/$wims_class/exams/.eseverity $reg

!read var.proc.weights
job=