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 |