Subversion Repositories wimsdev

Rev

Rev 1336 | Rev 1970 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !!##preparation of the "bottom menu"
  2.  
  3. !if _check isin $session or $wims_mode=popup
  4.  !exit
  5. !endif
  6.  
  7. !if _test isin $session and $wims_hacked_variables!=$empty
  8.  <p><b>WIMS WARNING</b>. 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><tt><b>$wims_hacked_variables</b></tt>
  12.  <p>
  13. !endif
  14.  
  15. !read name.phtml.$module_language
  16. !default wims_homeref_bgcolor=$wims_ref_bgcolor
  17. !if exam isin $wims_session
  18.  !set wims_hr_r=$[max(0,$wims_exam_remain)]
  19.  !set wims_hr_rm=$[floor($wims_hr_r/60)]
  20.  !set wims_hr_rs=!char 2,3 of $[$wims_hr_r%60+100]
  21.  !set wims_homeref_special=$wims_name_examremain $wims_hr_rm:$wims_hr_rs ($wims_name_whenloaded)
  22.  !goto rmend
  23. !endif
  24.  
  25. !if $wims_rm_1=no
  26.  !reset wims_rm_1
  27.  !goto local
  28. !endif
  29. !if $wims_rm_1!=$empty
  30.  !goto rm2
  31. !endif
  32. !reset 1_
  33. !if _ isin $wims_subsession
  34.  !set 1_=!append line back2,3,window.close() to $1_
  35. !else
  36.  !set 1_=!append line class_home,1,session=$wims_session.1 to $1_
  37. !endif
  38. !if $wims_sheet>0
  39.  !set 1_=!append line sheet,1,module=adm/class/sheet&sheet=$wims_sheet to $1_
  40. !endif
  41. !if P isin $wims_sheet
  42.  !set 1_=!append line sheet,1,module=adm/sheet&sh=$wims_sheet to $1_
  43. !endif
  44. !if $cmd=help or $cmd=hint
  45.  !set 1_=!append line resume,1,cmd=resume to $1_
  46. !endif
  47. !if $module_has_intro=yes and $cmd notwordof intro help and\
  48.         $wims_sheet=$empty and exam notin $wims_session
  49.  !set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$wims_intro_parm to $1_
  50. !endif
  51. !if $module_has_help=yes and $cmd notwordof intro help
  52.  !if $module_help=$empty or $module_help=popup
  53.   !set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_
  54.  !else
  55.   !set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_
  56.  !endif
  57. !endif
  58. !if $module_has_about=yes and $cmd notwordof help intro
  59.  !set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
  60. !endif
  61. !if print isin $job,$job2 or $print!=
  62.   !set 1_=!append line print,3,window.print() to $1_
  63. !endif
  64. !set wims_rm_1=$1_
  65. :local
  66. !reset 1_
  67. !if $wims_developer!=$empty and COPYING isin $module_copyright and ../classes/ notin ../$module
  68.  !set V_=!char 1 of $module
  69.  !set M_=!translate internal / to , in $module
  70.  !set M_=!item 1 of $M_
  71.  !if $V_ isin ABCDEFGHIJKLMNOPQRTSUVWXYZ or $M_ iswordof local contrib tool
  72.   !set 1_=!append line modify,1,module=adm/modtool&original=$module to $1_
  73.  !endif
  74. !endif
  75. !if $cmd!=intro and $cmd!=help and $module!=home and \
  76.         ../adm/ notin ../$module and \
  77.         (../devel/ notin ../$module or $wims_devel_modules iswordof open)
  78.  !set wims_homeref_parm=!replace % by %25 in $module_init_parm
  79.  !set wims_homeref_parm=!replace + by %2B in $module_init_parm
  80.  !set wims_homeref_parm=!replace & by %26 in $module_init_parm
  81.  !set 1_=!append line add,1,module=adm/class/addmodule&dir=$module&scoring=$module_scoring&iniparm=$wims_homeref_parm to $1_
  82. !endif
  83. !if $wims_user=supervisor and exam notin $session and \
  84.         ..classes/ notin ..$module and ..adm/ notin ..$module and \
  85.         ..devel/ notin ..$module and \
  86.         GNU isin $module_copyright and \
  87.         _check notin $session and \
  88.         $class_importation!=no and\
  89.         $thisexo!=
  90.   !set 1_=!append line import,1,module=adm/createxo&existing=$thisexo&catmodule=$module to $1_
  91. !endif
  92. !set 1_=!append line $wims_menu_items to $1_
  93. !set wims_rm_0=$1_
  94. !set wims_rm_3=!append line $wims_menu_tabs to $wims_rm_3
  95. :rm2
  96. !if $wims_rm_2!=$empty
  97.  !goto rmend
  98. !endif
  99. !reset 2_
  100. !if $module_author!=$empty and @ isin $module_address
  101.  !set wims_homeref_author_num=!itemcnt $module_author
  102.  !if $wims_homeref_author_num>1
  103.   !set 3_=$wims_name_authors:
  104.  !else
  105.   !set 3_=$wims_name_author:
  106.  !endif
  107.  !set 4_=!mailurl $module_address $module_author\
  108. WIMS $module_title [$module_language]
  109.  !set 2_=!append line author,0,$3_ $4_ to $2_
  110. !endif
  111. !if $module_translator!=$empty and $module_translator_address!=$empty
  112.  !set 3_=!mailurl $module_translator_address $module_translator\
  113. WIMS $module_title [$module_language]
  114.  !set 2_=!append line trans,0,$wims_name_translatedby $3_ to $2_
  115. !endif
  116. !set 2_=!append line syou,0,$wims_name_syou to $2_
  117. !set 2_=!append line class,0,$wims_classname ($wims_institutionname) to $2_
  118. !set 2_=!append line time,0,Server time: $wims_now to $2_
  119. !set wims_rm_2=$2_
  120.  
  121. :rmend
  122. !set wims_homeref_n1=!linecnt $wims_rm_1
  123. !set wims_homeref_n2=!linecnt $wims_rm_2
  124. !set wims_homeref_n0=!linecnt $wims_rm_0
  125. !set wims_homeref_n3=!linecnt $wims_rm_3
  126. </div>
  127.  
  128. !read themes.phtml tail
  129. !robottrap
  130.  
  131.