Subversion Repositories wimsdev

Rev

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

Rev 13175 Rev 14646
Line 50... Line 50...
50 
!if $wims_sheet!=$empty or _exam isin $wims_session
 50 
!if $wims_sheet!=$empty or _exam isin $wims_session
51 
  !set wims_menu_items=!append line tools,4,module=home,tool to $wims_menu_items
 51 
  !set wims_menu_items=!append line tools,4,module=home,tool to $wims_menu_items
52 
!endif
 52 
!endif
53 
 
 53 
 
54 
!if $wims_sheet>0 or P isin $wims_sheet
 54 
!if $wims_sheet>0 or P isin $wims_sheet
55 
  !if $(wims_exofeedback[$wims_exo;])!=$empty
 55 
  !if $module_score!=$empty and $(wims_exofeedback[$wims_exo;])!=$empty
56 
    !set feedexo=$(wims_exofeedback[$wims_exo;])
 56 
    !set feedexotot=!declosing $(wims_exofeedback[$wims_exo;])
- 
 
 57 
    !set feedexocnt=!itemcnt $(feedexotot[;1])
- 
 
 58 
    !for t=1 to $feedexocnt
- 
 
 59 
      !set feedexo=$(feedexotot[$t;])
57 
    !if $module_score!=$empty and $module_score < $(feedexo[2]) and $module_score >= $(feedexo[3])
 60 
      !if $module_score < $(feedexo[2]) and $module_score >= $(feedexo[3])
58 
      !if $(feedexo[3])=0 or $(feedexo[3])=$empty
 61 
        !if $module_score < 10
59 
        !set 5_=!append line feedbackexo,7,$(feedexo[1]),mfeed to $5_
 62 
          !set 5_=!append line feedbackexo,7,$(feedexo[1]),mfeed to $5_
60 
      !else
 63 
        !else
61 
        !set 5_=!append line feedbackplus,7,$(feedexo[1]),mfeed to $5_
 64 
          !set 5_=!append line feedbackplus,7,$(feedexo[1]),mfeed to $5_
- 
 
 65 
        !endif
62 
      !endif
 66 
      !endif
63 
    !endif
 67 
    !next
64 
  !endif
 68 
  !endif
65 
!endif
 69 
!endif
66 
!if $cmd=help or $cmd=hint
 70 
!if $cmd=help or $cmd=hint
67 
  !!set 1_=!append line resume,1,cmd=resume to $1_
 71 
  !!set 1_=!append line resume,1,cmd=resume to $1_
68 
!endif
 72 
!endif