Subversion Repositories wimsdev

Rev

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

  1. !!************** homeref.phtml  ****************
  2. !! This File creates 2 sets of links, to put in the tail menu of Wims.
  3. !! 1st set contains up to 6 links
  4. !! 2nd set contains informations about author(s), and mail links to them.
  5. !! **********************************************
  6. <!-- begin of html/homeref.phtml -->
  7.  
  8. !if yes isin $wims_lightpopup
  9.  !if $wims_lightpopup_option=$empty
  10.   !set 1_=!append line itemsep,0, $wims_name_devwims to $1_
  11.   !set 1_=!append line itemsep,0, $wims_name_Author: $module_author to $1_
  12.   !set wims_rm_2=$1_
  13.   !goto rmend
  14.  !else
  15.   !if about isitemof $wims_lightpopup_option
  16.    !set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
  17.   !endif
  18.   !set wims_rm_1=$1_
  19.   !goto rmend
  20.  !endif
  21. !endif
  22.  
  23. !if robot isin $session or _check isin $session
  24.  !if robot isin $session and wims.unice.fr notin $httpd_SERVER_NAME\
  25.         and $cmd iswordof new intro
  26.   !set wims_c1=!char 1 of $module
  27.   !if $wims_c1 isin ABCDEFGHIJKLMNOPQRSTUVWXYZ or ../tool isin ../$module
  28.    !set wims_md=!translate . to , in $module
  29.    !set wims_md=!item -1 of $wims_md
  30.    !set wims_mdcnt=!charcnt $wims_md
  31.    !if $wims_mdcnt=2
  32.     !set wims_ff=!translate / to ~ in $module
  33.     <small><a href="http://wims.unice.fr/wims/$(wims_md)_$wims_ff.html">The most recent version</a></small><br/>
  34.    !endif
  35.   !endif
  36.  !endif
  37.  !changeto robotref.phtml
  38. !endif
  39.  
  40. !if $wims_mode=popup
  41.  <div class="wimstail">
  42.         <hr/>
  43.         <table border="0" width="100%">
  44.                 <tr><td align="left">
  45.                 <small>
  46.                  <a target="wims" href="http://$httpd_HTTP_HOST$httpd_SCRIPT_NAME">WIMS @ $httpd_HTTP_HOST</a>
  47.                 </small>
  48.                 </td></tr>
  49.         </table>
  50.  </div>
  51.  !exit
  52. !endif
  53.  
  54. !if _test isin $session and $wims_hacked_variables!=$empty
  55.  <p><span class="wims_warning">WIMS WARNING</span>. The following variables of your module could be hacked
  56.  by students using manually modified http addresses! You might want to put more
  57.  strict permissions to them in var.def, in order to build a secure exercise module.
  58.  </p>
  59.  <pre>$wims_hacked_variables</pre>
  60.  
  61. !endif
  62.  
  63. !read name.phtml.$module_language
  64. !read themes/$wims_theme/lang/name.phtml.$lang
  65. !default wims_homeref_bgcolor=$wims_ref_bgcolor
  66.  
  67. !if $wims_rm_1=no
  68.  !reset wims_rm_1
  69.  !goto local
  70. !endif
  71. !if $wims_rm_1!=$empty
  72.  !goto rm2
  73. !endif
  74. !reset 1_
  75.  
  76. !!********* Link #1 : "Close Window" or "Home" (Not Shown if Embedded)
  77. !if _ isin $wims_subsession
  78.  !set 1_=!append line back,3,window.close() to $1_
  79. !else
  80.  !if $window != embeded
  81.   !!set 1_=!append line home,1,session=$wims_session.1 to $1_
  82.  !endif
  83. !endif
  84.  
  85. !!********* Link #2 : "Sheet"
  86. !if $wims_sheet>0 or P isin $wims_sheet
  87.  !if $wims_sequence>0
  88.   !set tmp_=sheet,1,module=adm/sheet&sh=$wims_sheet&seq=$wims_sequence
  89.  !else
  90.   !set tmp_=sheet,1,module=adm/sheet&sh=$wims_sheet&
  91.  !endif
  92.  !set 1_=!append line $tmp_ to $1_
  93.  !let wims_menu_items=!append line $tmp_ to $wims_menu_items
  94.  !if $wims_exo>1
  95.   !let wims_menu_items=!append line previousseries,1,module=home&directworksheet=$wims_sheet.$[$wims_exo-1] to $wims_menu_items
  96.  !endif
  97.  !if $wims_exo<$wims_sheetmax
  98.   !let wims_menu_items=!append line nextseries,1,module=home&directworksheet=$wims_sheet.$[$wims_exo+1] to $wims_menu_items
  99.  !endif
  100. !endif
  101.  
  102. !!********* Link #3 : "Resume"
  103. !if $cmd=help or $cmd=hint
  104.  !set 1_=!append line resume,1,cmd=resume to $1_
  105. !endif
  106.  
  107. !!********* Link #4 : "Introduction" (Not Shown if Embedded)
  108. !if $window != embeded and $module_has_intro=yes and $cmd notwordof intro help
  109.  !set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3 to $1_
  110. !endif
  111.  
  112. !if _ notin $wims_session and adm/ notin $module and home notin $module\
  113.         and $cmd notwordof help ref
  114.  !!!set 1_=!append line reference,4,module=$module&cmd=ref&special_parm=$cmd,ref to $1_
  115. !endif
  116.  
  117. !!********* Link #5 : "Help"
  118. !if $module_help!=$empty and $module_has_help=yes and $cmd notwordof intro help
  119.  !if $module_help=popup
  120.   !set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_
  121.  !else
  122.   !set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_
  123.  !endif
  124. !endif
  125.  
  126. !!********* Link #6 : "About"
  127. !if $module_has_about=yes and $cmd notwordof help
  128.   !!set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
  129. !endif
  130.  
  131. !set wims_rm_1=$1_
  132. :local
  133. !reset 1_
  134. !set 1_=!append line itemsep,0,\
  135. $wims_menu_items to $1_
  136. !set wims_rm_0=$1_
  137. !!wims_menu_tabs not used - to delete
  138. !set wims_rm_3=!append line $wims_menu_tabs to $wims_rm_3
  139. :rm2
  140. !if $wims_rm_2!=$empty
  141.  !goto rmend
  142. !endif
  143. !reset 2_
  144.  
  145. !!********* Link #8 : "Author(s)"
  146.  
  147. !if $module_author!=$empty and (@ isin $module_address or $module_address=$empty)
  148.  !read namewriting.phtml $module_author
  149.  !set module_address=!replace internal ; by , in $module_address
  150.  !set wims_homeref_author_num=$script_cnt
  151.  !if $wims_homeref_author_num>1
  152.   !set 3_=$wims_name_authors:
  153.  !else
  154.   !set 3_=$wims_name_author:
  155.  !endif
  156.  !set 4_=
  157.  !for ad=1 to $wims_homeref_author_num
  158.    !set adreplace=$(module_address[$ad])
  159.    !if $adreplace=$empty
  160.       !set adreplace=$module_maintainer_address
  161.    !endif
  162.    !if $adreplace!= and @ isin $adreplace
  163. !!!#### xiao treatment - should disappear when modules are republished
  164.     !if xiao isin $adreplace
  165.        !set adreplace=qualite@wimsedu.info
  166.      !endif
  167. !!!####
  168.     !set 4__=!mailurl $adreplace $(script_out[$ad])\
  169. WIMS $module_title [$module_language]
  170.    !else
  171.      !set 4__=$(script_out[$ad])
  172.    !endif
  173.     !set 4_=!append item $4__ to $4_
  174.   !next
  175.   !set 2_=!append line author,0,$3_ $4_ to $2_
  176. !endif
  177.  
  178. !!********* Link #9 : "Translator(s)"
  179. !set mod_transl=$(module_translator_$lang)
  180. !if $module_transl!=$empty
  181.    !set module_translator=$mod_transl
  182.    !set module_translator_address=$(module_translator_address_$lang)
  183. !endif
  184.  
  185. !if $module_translator!=$empty and $module_translator_address!=$empty
  186.  !read namewriting.phtml $module_translator
  187.  !set module_translator_address=!replace internal ; by , in $module_translator_address
  188.  !set module_translator=$(script_out[1])
  189.  !set wims_homeref_translator_num=$script_cnt
  190.  !for ad=1 to $wims_homeref_translator_num
  191.    !set 3_=!mailurl $(module_translator_address[$ad]) $(module_translator[$ad])\
  192. WIMS $module_title [$module_language]
  193.    !set 2_=!append line trans,0,$wims_name_translatedby $3_ to $2_
  194.  !next
  195. !endif
  196.  
  197. !!********* Link #10 : "Version & Copyright"
  198. !if $module_version$module_copyright!=$empty
  199.  !set 2_=!append line version,0,$wims_name_Version $module_version, $module_copyright to $2_
  200. !endif
  201.  
  202. !!********* Link #11 : "Modify"
  203. !if $wims_developer!=$empty and COPYING isin $module_copyright
  204.  !set V_=!char 1 of $module
  205.  !set M_=!translate internal / to , in $module
  206.  !set M_=!item 1 of $M_
  207.  !if $V_ isin ABCDEFGHIJKLMNOPQRTSUVWXYZ or $M_ iswordof local contrib tool
  208.   !set  wims_rm_0=!append line modify,1,module=adm/modtool&original=$module to $wims_rm_0
  209.  !endif
  210. !endif
  211.  
  212. !!********* Link #12 : "Server Time"
  213. !if $wims_ismanager>=2
  214.  !set 2_=!append line time,0,$wims_name_server_time: $wims_now to $2_
  215. !endif
  216.  
  217. !set wims_rm_2=$2_
  218.  
  219. :rmend
  220. !set wims_homeref_n0=!linecnt $wims_rm_0
  221. !set wims_homeref_n1=!linecnt $wims_rm_1
  222. !set wims_homeref_n2=!linecnt $wims_rm_2
  223. !!!set wims_homeref_n3=!linecnt $wims_rm_3
  224.  
  225. <!-- END of html/homeref.phtml -->
  226. !read themes.phtml tail
  227. !robottrap
  228.