Subversion Repositories wimsdev

Rev

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

Rev 12836 Rev 13743
Line 2... Line 2...
2
 
2
 
3
!if _check isin $session or $wims_mode=popup
3
!if _check isin $session or $wims_mode=popup
4
 !exit
4
  !exit
5
!endif
5
!endif
6
 
6
 
7
!if _test isin $session and $wims_hacked_variables!=$empty
7
!if _test isin $session and $wims_hacked_variables!=$empty
8
  <p><span class="wims_warning">WIMS WARNING</span>. The following variables of your module could be hacked
8
  <p><span class="wims_warning">WIMS WARNING</span>. The following variables of your module could be hacked
9
    by students using manually modified http addresses! You might want to put more
9
    by students using manually modified http addresses! You might want to put more
Line 21... Line 21...
21
  !read examclock.proc
21
  !read examclock.proc
22
  !goto rmend
22
  !goto rmend
23
!endif
23
!endif
24
 
24
 
25
!if $wims_rm_1=no
25
!if $wims_rm_1=no
26
 !reset wims_rm_1
26
  !reset wims_rm_1
27
 !goto local
27
  !goto local
28
!endif
28
!endif
29
!if $wims_rm_1!=$empty
29
!if $wims_rm_1!=$empty
30
 !goto rm2
30
  !goto rm2
31
!endif
31
!endif
32
!reset 1_
32
!reset 1_
33
 
33
 
34
!!********* Link #1 : "Close Window" or "Home" (Not Shown if Embedded)
34
!!********* Link #1 : "Close Window" or "Home" (Not Shown if Embedded)
35
!if _ isin $wims_subsession
35
!if _ isin $wims_subsession
36
 !!set 1_=!append line back2,3,window.close() to $1_
36
  !!set 1_=!append line back2,3,window.close() to $1_
37
!else
37
!else
38
 !!set 1_=!append line class_home,1,session=$wims_session.1 to $1_
38
  !!set 1_=!append line class_home,1,session=$wims_session.1 to $1_
39
!endif
39
!endif
40
 
40
 
41
!!********* Link #2 : "Sheet"
41
!!********* Link #2 : "Sheet"
42
!if $wims_sheet>0 or P isin $wims_sheet
42
!if $wims_sheet>0 or P isin $wims_sheet
43
 !if $wims_sheet>0
43
  !if $wims_sheet>0
44
  !set tmp_=sheetmanagement,1,module=adm/class/sheet&sheet=$wims_sheet
44
    !set tmp_=sheetmanagement,1,module=adm/class/sheet&sheet=$wims_sheet
45
 !else
45
  !else
46
  !set tmp_=sheet,1,module=adm/sheet&sh=$wims_sheet&
46
    !set tmp_=sheet,1,module=adm/sheet&sh=$wims_sheet&
47
 !endif
47
  !endif
48
 !if yes notin $wims_lightpopup
48
  !if yes notin $wims_lightpopup
49
    !set 1_=!append line $tmp_ to $1_
49
    !set 1_=!append line $tmp_ to $1_
50
 !endif
50
  !endif
51
 !let wims_menu_items=!append line $tmp_ to $wims_menu_items
51
  !let wims_menu_items=!append line $tmp_ to $wims_menu_items
52
 !if $wims_exo>1
52
  !if $wims_exo>1
53
  !let wims_menu_items=!append line previousseries,1,module=home&directworksheet=$wims_sheet.$[$wims_exo-1] to $wims_menu_items
53
    !let wims_menu_items=!append line previousseries,1,module=home&directworksheet=$wims_sheet.$[$wims_exo-1] to $wims_menu_items
54
 !endif
54
  !endif
55
 !if $wims_exo<$wims_sheetmax
55
  !if $wims_exo<$wims_sheetmax
56
  !let wims_menu_items=!append line nextseries,1,module=home&directworksheet=$wims_sheet.$[$wims_exo+1] to $wims_menu_items
56
    !let wims_menu_items=!append line nextseries,1,module=home&directworksheet=$wims_sheet.$[$wims_exo+1] to $wims_menu_items
57
 !endif
57
  !endif
58
!endif
58
!endif
59
 
59
 
60
!if $wims_sheet>0 or P isin $wims_sheet
60
!if $wims_sheet>0 or P isin $wims_sheet
61
 !if $(wims_exofeedback[$wims_exo;])!=$empty
61
  !if $(wims_exofeedback[$wims_exo;])!=$empty
62
  !set feedexo=$(wims_exofeedback[$wims_exo;])
62
    !set feedexo=$(wims_exofeedback[$wims_exo;])
63
  !if $module_score!=$empty and $module_score < $(feedexo[2]) and $module_score >= $(feedexo[3])
63
    !if $module_score!=$empty and $module_score < $(feedexo[2]) and $module_score >= $(feedexo[3])
64
    !if $(feedexo[3])=0 or $(feedexo[3])=$empty
64
      !if $(feedexo[3])=0 or $(feedexo[3])=$empty
65
      !set 5_=!append line feedbackexo,7,$(feedexo[1]),mfeed to $5_
65
        !set 5_=!append line feedbackexo,7,$(feedexo[1]),mfeed to $5_
66
    !else
66
      !else
67
      !set 5_=!append line feedbackplus,7,$(feedexo[1]),mfeed to $5_
67
        !set 5_=!append line feedbackplus,7,$(feedexo[1]),mfeed to $5_
-
 
68
      !endif
68
    !endif
69
    !endif
69
  !endif
70
  !endif
70
 !endif
-
 
71
!endif
71
!endif
72
 
72
 
73
!!********* Link #3 : "Resume"
73
!!********* Link #3 : "Resume"
74
!if $cmd=help or $cmd=hint
74
!if $cmd=help or $cmd=hint
75
 !set 1_=!append line resume,1,cmd=resume to $1_
75
  !set 1_=!append line resume,1,cmd=resume to $1_
76
!endif
76
!endif
77
 
77
 
78
!!********* Link #4 : "Introduction" (Not Shown if Embedded)
78
!!********* Link #4 : "Introduction" (Not Shown if Embedded)
79
!if $module_has_intro=yes and $cmd notwordof intro help and\
79
!if $module_has_intro=yes and $cmd notwordof intro help and\
80
        $wims_sheet=$empty and exam notin $wims_session
80
        $wims_sheet=$empty and exam notin $wims_session
81
 !!set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4 to $1_
81
  !!set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4 to $1_
82
!endif
82
!endif
83
 
83
 
84
!!********* Link #5 : "Help"
84
!!********* Link #5 : "Help"
85
!if $module_has_help=yes and $cmd notwordof intro help
85
!if $module_has_help=yes and $cmd notwordof intro help
86
 !if $module_help=$empty or $module_help=popup
86
  !if $module_help=$empty or $module_help=popup
87
  !!set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_
87
   !!set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_
88
 !else
88
  !else
89
  !!set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_
89
   !!set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_
90
 !endif
90
  !endif
91
!endif
91
!endif
92
 
92
 
93
!!********* Link #6 : "About"
93
!!********* Link #6 : "About"
94
!if $module_has_about=yes and $cmd notwordof help intro
94
!if $module_has_about=yes and $cmd notwordof help intro
95
  !!set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
95
  !!set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
Line 118... Line 118...
118
!endif
118
!endif
119
!if $wims_user=supervisor and $module=adm/class/glossary
119
!if $wims_user=supervisor and $module=adm/class/glossary
120
  !set 1_=!append line newglose,1,module=adm/tool/glossary&gl=0 to $1_
120
  !set 1_=!append line newglose,1,module=adm/tool/glossary&gl=0 to $1_
121
!endif
121
!endif
122
!if $wims_user=supervisor and ((_adm/doc notin _$module and adddoc notin $module \
122
!if $wims_user=supervisor and ((_adm/doc notin _$module and adddoc notin $module \
123
  and (document iswordof $module_category or tool iswordof $module_category))\
123
    and (document iswordof $module_category or tool iswordof $module_category))\
124
   or _c isin _$doc)
124
    or _c isin _$doc)
125
  !if document iswordof $module_category or _c isin _$doc
125
  !if document iswordof $module_category or _c isin _$doc
126
    !set wims_homeref_parm=block=$block&doc=$doc
126
    !set wims_homeref_parm=block=$block&doc=$doc
127
  !endif
127
  !endif
128
  !if adm/tool/glossary isin $module
128
  !if adm/tool/glossary isin $module
129
    !if $gl=0
129
    !if $gl=0