Subversion Repositories wimsdev

Rev

Rev 12836 | Rev 13762 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1193 bpr 1
!!##preparation of the "bottom menu"
16 reyssat 2
 
8597 obado 3
!if _check isin $session or $wims_mode=popup
13743 bpr 4
  !exit
16 reyssat 5
!endif
6
 
7
!if _test isin $session and $wims_hacked_variables!=$empty
11268 obado 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
10
    strict permissions to them in var.def, in order to build a secure exercise module.
11
  </p>
12
  <pre>$wims_hacked_variables</pre>
16 reyssat 13
!endif
14
 
2373 bpr 15
!read name.phtml.$lang
9309 bpr 16
!read themes/$wims_theme/name.phtml.$lang
16 reyssat 17
!default wims_homeref_bgcolor=$wims_ref_bgcolor
4635 bpr 18
!read themes/$wims_theme/local.phtml
10057 bpr 19
 
16 reyssat 20
!if exam isin $wims_session
11268 obado 21
  !read examclock.proc
22
  !goto rmend
16 reyssat 23
!endif
24
 
1193 bpr 25
!if $wims_rm_1=no
13743 bpr 26
  !reset wims_rm_1
27
  !goto local
1193 bpr 28
!endif
16 reyssat 29
!if $wims_rm_1!=$empty
13743 bpr 30
  !goto rm2
16 reyssat 31
!endif
32
!reset 1_
4346 bpr 33
 
34
!!********* Link #1 : "Close Window" or "Home" (Not Shown if Embedded)
16 reyssat 35
!if _ isin $wims_subsession
13743 bpr 36
  !!set 1_=!append line back2,3,window.close() to $1_
16 reyssat 37
!else
13743 bpr 38
  !!set 1_=!append line class_home,1,session=$wims_session.1 to $1_
16 reyssat 39
!endif
2865 guerimand 40
 
4346 bpr 41
!!********* Link #2 : "Sheet"
2865 guerimand 42
!if $wims_sheet>0 or P isin $wims_sheet
13743 bpr 43
  !if $wims_sheet>0
44
    !set tmp_=sheetmanagement,1,module=adm/class/sheet&sheet=$wims_sheet
45
  !else
46
    !set tmp_=sheet,1,module=adm/sheet&sh=$wims_sheet&
47
  !endif
48
  !if yes notin $wims_lightpopup
8597 obado 49
    !set 1_=!append line $tmp_ to $1_
13743 bpr 50
  !endif
51
  !let wims_menu_items=!append line $tmp_ to $wims_menu_items
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
54
  !endif
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
57
  !endif
678 guerimand 58
!endif
4635 bpr 59
 
4528 bpr 60
!if $wims_sheet>0 or P isin $wims_sheet
13743 bpr 61
  !if $(wims_exofeedback[$wims_exo;])!=$empty
62
    !set feedexo=$(wims_exofeedback[$wims_exo;])
63
    !if $module_score!=$empty and $module_score < $(feedexo[2]) and $module_score >= $(feedexo[3])
64
      !if $(feedexo[3])=0 or $(feedexo[3])=$empty
65
        !set 5_=!append line feedbackexo,7,$(feedexo[1]),mfeed to $5_
66
      !else
67
        !set 5_=!append line feedbackplus,7,$(feedexo[1]),mfeed to $5_
68
      !endif
6298 bpr 69
    !endif
4528 bpr 70
  !endif
71
!endif
2865 guerimand 72
 
4346 bpr 73
!!********* Link #3 : "Resume"
16 reyssat 74
!if $cmd=help or $cmd=hint
13743 bpr 75
  !set 1_=!append line resume,1,cmd=resume to $1_
16 reyssat 76
!endif
4346 bpr 77
 
78
!!********* Link #4 : "Introduction" (Not Shown if Embedded)
16 reyssat 79
!if $module_has_intro=yes and $cmd notwordof intro help and\
80
        $wims_sheet=$empty and exam notin $wims_session
13743 bpr 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_
16 reyssat 82
!endif
4346 bpr 83
 
84
!!********* Link #5 : "Help"
16 reyssat 85
!if $module_has_help=yes and $cmd notwordof intro help
13743 bpr 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_
88
  !else
89
   !!set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_
90
  !endif
16 reyssat 91
!endif
4346 bpr 92
 
93
!!********* Link #6 : "About"
16 reyssat 94
!if $module_has_about=yes and $cmd notwordof help intro
9800 bpr 95
  !!set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
16 reyssat 96
!endif
9800 bpr 97
 
1193 bpr 98
!if print isin $job,$job2 or $print!=
99
  !set 1_=!append line print,3,window.print() to $1_
100
!endif
1202 bpr 101
!set wims_rm_1=$1_
8597 obado 102
 
1202 bpr 103
:local
104
!reset 1_
10057 bpr 105
!if $wims_sheet!=$empty or _exam isin $wims_session
106
  !set 1_=!append line itemsep,0,\
107
  tools,4,module=home,tool\
108
  to $1_
109
!endif
110
 
1193 bpr 111
!if $wims_developer!=$empty and COPYING isin $module_copyright and ../classes/ notin ../$module
12836 bpr 112
  !set V_=!char 1 of $module
113
  !set M_=!translate internal / to , in $module
114
  !set M_=!item 1 of $M_
115
  !if $V_ isin ABCDEFGHIJKLMNOPQRTSUVWXYZ or $M_ iswordof local contrib tool
116
    !set 1_=!append line modify,1,module=adm/modtool&original=$module to $1_
117
  !endif
1193 bpr 118
!endif
12836 bpr 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_
121
!endif
122
!if $wims_user=supervisor and ((_adm/doc notin _$module and adddoc notin $module \
13743 bpr 123
    and (document iswordof $module_category or tool iswordof $module_category))\
124
    or _c isin _$doc)
12370 bpr 125
  !if document iswordof $module_category or _c isin _$doc
2080 bpr 126
    !set wims_homeref_parm=block=$block&doc=$doc
127
  !endif
12569 bpr 128
  !if adm/tool/glossary isin $module
12595 bpr 129
    !if $gl=0
130
      !if $special_parm!=$empty
131
        !set wims_homeref_parm=!getopt gloss_item in $module_init_parm
132
        !set 1_=!append line addglossary,1,module=adm/class/glossary&job=add&iniparm=$wims_homeref_parm to $1_
133
      !endif
134
    !else
135
      !set wims_homeref_parm=gl=$gl
12836 bpr 136
      !set 1_=!append line newglose,1,module=adm/tool/glossary&gl=0 to $1_
12569 bpr 137
    !endif
138
  !else
139
    !if _c notin _$doc
140
      !set 1_=!append line adddoc,1,module=adm/class/adddoc&job=add&dir=$module&iniparm=$wims_homeref_parm to $1_
141
    !endif
12370 bpr 142
  !endif
12595 bpr 143
  !if ($gl>0 and $cmd!=reply) or adm/tool/glossary notin $module
144
    !set 1_=!append line addh,1,module=adm/class/addmodule&job=helpexo&dir=$module&iniparm=$wims_homeref_parm to $1_
145
  !endif
2080 bpr 146
!endif
10321 bpr 147
!if $wims_user=supervisor and $module=adm/doc
148
  !set 1_=!append line doch_docs,1,module=adm/doc&job=home to $1_
149
!endif
1980 guerimand 150
!if $special_parm4=$empty
12515 bpr 151
  !if $cmd!=intro and $cmd!=help and $module!=home and \
152
          ../adm/ notin ../$module and \
153
          (../devel/ notin ../$module or $wims_devel_modules iswordof open) \
154
          and exercise isin $module_category
155
    !set wims_homeref_parm=!replace % by %25 in $module_init_parm
156
    !set wims_homeref_parm=!replace + by %2B in $wims_homeref_parm
157
    !set wims_homeref_parm=!replace & by %26 in $wims_homeref_parm
158
    !set 1_=!append line add,1,module=adm/class/addmodule&dir=$module&scoring=$module_scoring&iniparm=$wims_homeref_parm to $1_
159
    !set 1_=!append line addh,1,module=adm/class/addmodule&job=helpexo&dir=$module&scoring=$module_scoring&iniparm=$wims_homeref_parm to $1_
160
  !endif
161
  !if $wims_user=supervisor and exam notin $session and \
162
            ..classes/ notin ..$module and ..adm/ notin ..$module and \
163
            ..devel/ notin ..$module and \
164
            GNU isin $module_copyright and \
165
            _check notin $session and \
166
            $class_importation!=no and\
167
            $thisexo!=
168
    !set 1_=!append line import,1,module=adm/createxo&existing=$thisexo&catmodule=$module to $1_
169
  !endif
7182 bpr 170
 
1980 guerimand 171
!else
12515 bpr 172
  !! ----- place pour ajouter le lien vers la modification de serie dans une feuille
173
  !if $cmd!=intro and $cmd!=help and $module!=home and \
174
      ../adm/ notin ../$module and \
175
      (../devel/ notin ../$module or $wims_devel_modules iswordof open)
176
    !set wims_homeref_parm=!replace % by %25 in $module_init_parm
177
    !set wims_homeref_parm=!replace + by %2B in $wims_homeref_parm
178
    !set wims_homeref_parm=!replace & by %26 in $wims_homeref_parm
179
    !set 1_=!append line chseries,1,module=adm/class/sheet&dir=$module&scoring=$module_scoring&iniparm=$wims_homeref_parm&job=chseries&num=$special_parm4 to $1_
180
  !endif
1980 guerimand 181
!endif
9703 bpr 182
!! add module links to general links with a separation
10285 bpr 183
!if $wims_menu_items!=$empty
184
  !set 1_=!append line itemsep,0,\
9703 bpr 185
$wims_menu_items to $1_
10285 bpr 186
!endif
9281 bpr 187
!if $wims_user=supervisor and $cmd!=intro and $cmd!=help and $module!=home and \
12515 bpr 188
          ../adm/ notin ../$module and ($module_category!=document or $job=exosource)\
189
          and $module_category!=help
190
  !!last condition is for the uniq module help/main.$lang
10039 bpr 191
  !if $job=exosource
192
    !set tmp=back2
193
    !if $block!=$empty
194
      !set docbl=block=$block
195
    !else
196
      !reset docbl
197
    !endif
198
  !else
199
    !set tmp=moduback
200
  !endif
201
  !set 1_=!append line $tmp,1,module=$module&cmd=intro&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4&$docbl to $1_
9281 bpr 202
!endif
7182 bpr 203
!! next exo and prev exo in the menu for supervisor
7188 bpr 204
!if $wims_user=supervisor and $exoprev$exonext != $empty and $wims_sheet=$empty
12515 bpr 205
  !set 1_=!append line itemsep,0\
10792 bpr 206
prev,1,cmd=new&module=$module&exo=$exoprev&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4  \
207
to $1_
208
  !set 1_=!append line next,1,cmd=new&module=$module&exo=$exonext&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4  \
209
to $1_
7182 bpr 210
  !reset exoprev exonext
211
!endif
212
 
7699 bpr 213
!if $special_parm4=$empty
12515 bpr 214
  !if $cmd!=intro and $cmd!=help and $module!=home and \
215
            ../adm/ notin ../$module and \
216
            (../devel/ notin ../$module or $wims_devel_modules iswordof open) \
217
            and oef isin $module_category and $wims_classification_open=yes and ../devel/ notin ../$module
218
    !set 1_=!append line itemsep,0,\
219
    Indexation,4,module=adm/tool/classification&refdir=$module&iniparm=$wims_homeref_parm,test to $1_
220
  !endif
7699 bpr 221
!endif
8484 bpr 222
!if $module_score!=$empty and $wims_class_exolog>0 and E notin $wims_sheet
223
  !set 1_=!append line exolog,1,module=adm/class/exolog&cmd=new&job=log&logsheet=$wims_sheet&logexo=$wims_exo to $1_
224
!endif
7699 bpr 225
 
7182 bpr 226
 
8597 obado 227
!! When in lightpopup mode, only links in whitelist are available
228
 
229
!if yes isin $wims_lightpopup
12515 bpr 230
  !set whitelist = nextseries,previousseries
231
  !set nb_elem=!linecnt $1_
232
  !for a=1 to $nb_elem
233
    !set element = !line $a of $1_
234
    !set id = !item 1 of $element
235
    !if $id isitemof $whitelist
236
      !set wims_rm_0 = !append line $element to $wims_rm_0
237
    !endif
238
  !next
8597 obado 239
!else
12515 bpr 240
  !set wims_rm_0=$1_
8597 obado 241
!endif
242
 
1407 bpr 243
!set wims_rm_3=!append line $wims_menu_tabs to $wims_rm_3
16 reyssat 244
:rm2
245
!if $wims_rm_2!=$empty
12515 bpr 246
  !goto rmend
16 reyssat 247
!endif
248
!reset 2_
4346 bpr 249
 
250
!!********* Link #8 : "Author(s)"
251
 
16 reyssat 252
!if $module_author!=$empty and @ isin $module_address
12515 bpr 253
  !read namewriting.phtml $module_author
254
  !set wims_homeref_author_num=$script_cnt
255
  !set module_address=!replace internal ; by , in $module_address
256
  !if $wims_homeref_author_num>1
257
    !set 3_=$wims_name_authors:
258
  !else
259
    !set 3_=$wims_name_author:
260
  !endif
261
  !set 4_=
262
  !for ad=1 to $wims_homeref_author_num
263
    !if $(module_address[$ad])!= and @ isin $(module_address[$ad])
264
      !set 4__=!mailurl $(module_address[$ad]) $(script_out[$ad])\
4346 bpr 265
WIMS $module_title [$module_language]
12515 bpr 266
    !else
267
      !set 4__=$(script_out[$ad])
7182 bpr 268
   !endif
12515 bpr 269
  !set 4_=!append item $4__ to $4_
7182 bpr 270
  !next
4346 bpr 271
  !set 2_=!append line author,0,$3_ $4_ to $2_
16 reyssat 272
!endif
4346 bpr 273
 
274
!!********* Link #9 : "Translator(s)"
2233 bpr 275
!set mod_transl=$(module_translator_$lang)
276
!if $module_transl!=$empty
12515 bpr 277
  !set module_translator=$mod_transl
278
  !set module_translator_address=$(module_translator_address_$lang)
2233 bpr 279
!endif
280
 
16 reyssat 281
!if $module_translator!=$empty and $module_translator_address!=$empty
12515 bpr 282
  !read namewriting.phtml $module_translator
283
  !set module_translator=$(script_out[1])
284
  !set wims_homeref_translator_num=$script_cnt
285
  !set module_translator_address=!replace internal ; by , in $module_translator_address
286
  !for ad=1 to $wims_homeref_translator_num
287
    !set 3_=!mailurl $(module_translator_address[$ad]) $(module_translator[$ad])\
16 reyssat 288
WIMS $module_title [$module_language]
12515 bpr 289
    !set 2_=!append line trans,0,$wims_name_translatedby $3_ to $2_
290
  !next
16 reyssat 291
!endif
2963 bpr 292
!if $wims_theme_version>=1
12515 bpr 293
  !reset 2_
2963 bpr 294
!endif
16 reyssat 295
!set 2_=!append line syou,0,$wims_name_syou to $2_
296
!set 2_=!append line class,0,$wims_classname ($wims_institutionname) to $2_
11268 obado 297
 
298
!read date.phtml $wims_now,noprint
299
!set 2_=!append line time,0,$wims_name_server_time: $slib_out to $2_
16 reyssat 300
!set wims_rm_2=$2_
4528 bpr 301
!set wims_rm_5=$5_
16 reyssat 302
 
303
:rmend
304
!set wims_homeref_n1=!linecnt $wims_rm_1
305
!set wims_homeref_n2=!linecnt $wims_rm_2
1202 bpr 306
!set wims_homeref_n0=!linecnt $wims_rm_0
1407 bpr 307
!set wims_homeref_n3=!linecnt $wims_rm_3
3044 bpr 308
!!</div><!--div dans homeref_supervisor-->
4528 bpr 309
!set wims_homeref_n5=!linecnt $wims_rm_5
4635 bpr 310
!set wims_homeref_local_n0=!linecnt $wims_local_menu_items
16 reyssat 311
!read themes.phtml tail
312
!robottrap