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