Subversion Repositories wimsdev

Rev

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

Rev 8528 Rev 9719
Line 1... Line 1...
1 
!default uu=$wims_read_parm
 1 
!default uu=$wims_read_parm
2 
 
 - 
 
3 
!!one line by sheet : points quality
 2 
!!one line by sheet : points quality
4 
percents=!getscorepercent user=$uu
 3 
percents=!getscorepercent user=$uu
5 
 
 4 
 
6 
percnt=!linecnt $percents
 5 
percnt=!linecnt $percents
7 
per=0
 6 
!distribute items 0,0 into per,av
8 
av=0
 - 
 
9 
 
 7 
 
10 
!! w_$i etc are defined in sheetweights
 8 
!! w_$i etc are defined in sheetweights
11 
!!give an average for all sheets and for the user $uu - even not seen in sequences ??
 9 
!! give an average for all sheets and for the user $uu - even not seen in sequences ??
12 
 
 10 
 
13 
!for i=1 to $percnt
 11 
!for i=1 to $percnt
14 
 !if  $(f_$i)=$empty or $(w_$i)=$empty
 12 
 !if  $(f_$i)=$empty or $(w_$i)=$empty
15 
   !read adm/class/sheetweights
 13 
   !read adm/class/sheetweights
16 
 !endif
 14 
 !endif
Line 22... Line 20...
22 
  !for sev=0 to 2
 20 
  !for sev=0 to 2
23 
     !set ff_$i=!mathsubst I$sev=$(x$(sev)_) in $(ff_$i)
 21 
     !set ff_$i=!mathsubst I$sev=$(x$(sev)_) in $(ff_$i)
24 
  !next
 22 
  !next
25 
   per=$[$per+($(w_$i))*$(ff_$i)]
 23 
   per=$[$per+($(w_$i))*$(ff_$i)]
26 
 !endif
 24 
 !endif
27 
!next i
 25 
!next i
28 
 
 26 
 
29 
examout=!examscore user=$uu
 27 
examout=!examscore user=$uu
30 
 
 28 
 
31 
!for i in $activexams
 29 
!for i in $activexams
32 
 es_$i=!word $i of $examout
 30 
 es_$i=!word $i of $examout
Line 36... Line 34...
36 
!if $totweight>0
 34 
!if $totweight>0
37 
 per=$[rint($scoremax*100*$per/$totweight)/100]
 35 
 per=$[rint($scoremax*100*$per/$totweight)/100]
38 
!else
 36 
!else
39 
 per=0
 37 
 per=0
40 
!endif
 38 
!endif
41 
 
 -