Subversion Repositories wimsdev

Rev

Rev 16807 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16807 Rev 17780
Line 4... Line 4...
4 
 !reset job,getuser
 4 
 !reset job,getuser
5 
 !exit
 5 
 !exit
6 
!endif
 6 
!endif
7 
 
 7 
 
8 
!if $getuser!=$empty
 8 
!if $getuser!=$empty
- 
 
 9 
 
- 
 
 10 
!! freeworks
- 
 
 11 
!!
- 
 
 12 
!! freworks are only listed in student score page if student has done
- 
 
 13 
!! some work on the freework (for some types, just opened the freework)
- 
 
 14 
  test=!defof allowed_optional_module in wimshome/log/wims.conf
- 
 
 15 
  !if class/freework isitemof $test
- 
 
 16 
    allowed_freework=yes
- 
 
 17 
  !else
- 
 
 18 
    !reset allowed_freework,freeworkcnt
- 
 
 19 
  !endif
- 
 
 20 
  !if $allowed_freework=yes and $job=getuser and $getuser!=$empty
- 
 
 21 
    activefreew=$empty
- 
 
 22 
    freeworkcnt=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freeworks
- 
 
 23 
    !for k=1 to $freeworkcnt
- 
 
 24 
      t=!record $k of wimshome/log/classes/$wims_class/freeworks/.freeworks
- 
 
 25 
      st_=!line 1 of $t
- 
 
 26 
      !if $st_ isitemof 1,2
- 
 
 27 
        ty_=!line 6 of $t
- 
 
 28 
        !if $ty_=3 or $ty_=2
- 
 
 29 
          !readproc adm/freework/finduserwork.proc $k,$getuser
- 
 
 30 
          !if $(output)!=0
- 
 
 31 
            activefreew=!append item $k to $activefreew
- 
 
 32 
  	  !endif
- 
 
 33 
        !endif
- 
 
 34 
      !endif
- 
 
 35 
    !next k
- 
 
 36 
  !endif
- 
 
 37 
  !set nbfreeworks=!itemcnt $activefreew
- 
 
 38 
 
9 
  m=!record 1 of wimshome/log/classes/$wims_class/.grades
 39 
  m=!record 1 of wimshome/log/classes/$wims_class/.grades
10 
  !distribute lines $m into manual,titles,weights
 40 
  !distribute lines $m into manual,titles,weights
11 
  gcnt=!itemcnt $titles
 41 
  gcnt=!itemcnt $titles
12 
  gcnt=$[$gcnt-2]
 42 
  gcnt=$[$gcnt-2]
13 
  !if $gcnt<1
 43 
  !if $gcnt<1
Line 17... Line 47...
17 
    !for g=1 to $gcnt
 47 
    !for g=1 to $gcnt
18 
      w$g=!item $g+2 of $weights
 48 
      w$g=!item $g+2 of $weights
19 
      mwtot=$[$mwtot+$(w$g)]
 49 
      mwtot=$[$mwtot+$(w$g)]
20 
    !next g
 50 
    !next g
21 
  !endif
 51 
  !endif
- 
 
 52 
  !! need g_ for freeworks
- 
 
 53 
  !!
- 
 
 54 
  !! NOTE: for large classes adm/class/grades (i.e. manual score
- 
 
 55 
  !! interfaces) is not available, but freeworks scoring works anyway
- 
 
 56 
  !! and scores assigned to freeworks are visibile in this page.
- 
 
 57 
  !!
22 
  !if $manual>0
 58 
  !if $manual>0 or $nbfreeworks>0
23 
    uucnt=!recordcnt wimshome/log/classes/$wims_class/.grades
 59 
    uucnt=!recordcnt wimshome/log/classes/$wims_class/.grades
24 
    !for u=2 to $uucnt
 60 
    !for u=2 to $uucnt
25 
      l_=!record $u of wimshome/log/classes/$wims_class/.grades
 61 
      l_=!record $u of wimshome/log/classes/$wims_class/.grades
26 
      n_=!item 1 of $l_
 62 
      n_=!item 1 of $l_
27 
      !if $n_=$getuser
 63 
      !if $n_=$getuser
28 
        teacher=!item 3 to -1 of $l_
 64 
        teacher=!item 3 to -1 of $l_
29 
        !break
 65 
        !break
30 
      !endif
 66 
      !endif
31 
    !next u
 67 
    !next u
32 
    mav=0
 68 
    mav=0
33 
    !for i=1 to $gcnt
 69 
    !for i=1 to $gcnt
34 
      g_$i=!item $i of $teacher
 70 
      g_$i=!item $i of $teacher
35 
      !if $(g_$i)!=$empty
 71 
      !if $(g_$i)!=$empty
Line 38... Line 74...
38 
    !next i
 74 
    !next i
39 
     mav=$[rint(100*$mav/$mwtot)/100]
 75 
     mav=$[rint(100*$mav/$mwtot)/100]
40 
  !else
 76 
  !else
41 
    mav=0
 77 
    mav=0
42 
  !endif
 78 
  !endif
- 
 
 79 
 
43 
  t=!translate = to , in $wims_req_time
 80 
  t=!translate = to , in $wims_req_time
44 
  t=!item -1 of $t
 81 
  t=!item -1 of $t
45 
  means=!record 0 of wimshome/log/classes/$wims_class/scoreavg
 82 
  means=!record 0 of wimshome/log/classes/$wims_class/scoreavg
46 
  topscores=!record 0 of wimshome/log/classes/$wims_class/.scoretop
 83 
  topscores=!record 0 of wimshome/log/classes/$wims_class/.scoretop
47 
  topnb=!defof class_topscores\
 84 
  topnb=!defof class_topscores\
Line 88... Line 125...
88 
  globalav=$[rint($manual*$mav+((100-$manual)*$per))/100]
 125 
  globalav=$[rint($manual*$mav+((100-$manual)*$per))/100]
89 
  exologs=!filelist $wims_home/log/classes/$wims_class/exolog/$getuser
 126 
  exologs=!filelist $wims_home/log/classes/$wims_class/exolog/$getuser
90 
  !readproc adm/vfilter/listvarfilter.proc
 127 
  !readproc adm/vfilter/listvarfilter.proc
91 
  !readproc adm/class/userdef ,$wims_class,$getuser
 128 
  !readproc adm/class/userdef ,$wims_class,$getuser
92 
  !readproc adm/vfilter/uservarfilter.proc $userdef
 129 
  !readproc adm/vfilter/uservarfilter.proc $userdef
- 
 
 130 
 
93 
!else
 131 
!else
94 
  job=
 132 
  job=
95 
!endif
 133 
!endif
96 
 
 134 
 
97 
!if $wims_user=supervisor
 135 
!if $wims_user=supervisor