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