Subversion Repositories wimsdev

Rev

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