Subversion Repositories wimsdev

Rev

Rev 12363 | Rev 15767 | 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 left menu or 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. !endif
  61.  
  62. !read name.phtml.$module_language
  63. !read themes/_lang/name.phtml.$lang
  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. !if ($wims_user=$empty or $wims_developer!=$empty or $wims_user=supervisor)\
  103.     and $exoprev$exonext != $empty and $wims_sheet=$empty
  104.   !set wims_menu_items=!append line itemsep,0\
  105. prev,1,cmd=new&module=$module&exo=$exoprev&wims_seedcnt=0&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4 \
  106.      to $wims_menu_items
  107.   !set wims_menu_items=!append line next,1,cmd=new&module=$module&exo=$exonext&wims_seedcnt=0&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3&special_parm4=$special_parm4 \
  108. to $wims_menu_items
  109.   !reset exoprev exonext
  110. !endif
  111.  
  112. !!********* Link #3 : "Resume"
  113. !if $cmd=help or $cmd=hint
  114.   !set 1_=!append line resume,1,cmd=resume to $1_
  115. !endif
  116.  
  117. !!********* Link #4 : "Introduction" (Not Shown if Embedded)
  118. !if $window != embeded and $module_has_intro=yes and $cmd notwordof intro help
  119.   !set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$special_parm&special_parm2=$special_parm2&special_parm3=$special_parm3 to $1_
  120. !endif
  121.  
  122. !if _ notin $wims_session and adm/ notin $module and home notin $module\
  123.         and $cmd notwordof help ref
  124.  !!!set 1_=!append line reference,4,module=$module&cmd=ref&special_parm=$cmd,ref to $1_
  125. !endif
  126.  
  127. !!********* Link #5 : "Help"
  128. !if $module_help!=$empty and $module_has_help=yes and $cmd notwordof intro help
  129.   !if $module_help=popup
  130.     !set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_
  131.   !else
  132.     !set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_
  133.   !endif
  134. !endif
  135.  
  136. !!********* Link #6 : "About"
  137. !if $module_has_about=yes and $cmd notwordof help
  138.   !!set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
  139. !endif
  140.  
  141. !set wims_rm_1=$1_
  142. :local
  143. !reset 1_
  144. !if $wims_menu_items!=$empty
  145.   !set 1_=!append line itemsep,0,\
  146. $wims_menu_items to $1_
  147. !endif
  148. !set wims_rm_0=$1_
  149. !!wims_menu_tabs not used - to delete
  150. !set wims_rm_3=!append line $wims_menu_tabs to $wims_rm_3
  151. :rm2
  152. !if $wims_rm_2!=$empty
  153.   !goto rmend
  154. !endif
  155. !reset 2_
  156.  
  157. !!********* Link #8 : "Author(s)"
  158.  
  159. !if $module_author!=$empty and (@ isin $module_address or $module_address=$empty)
  160.   !read namewriting.phtml $module_author
  161.   !set module_address=!replace internal ; by , in $module_address
  162.   !set wims_homeref_author_num=$script_cnt
  163.   !if $wims_homeref_author_num>1
  164.     !set 3_=$wims_name_authors:
  165.   !else
  166.     !set 3_=$wims_name_author:
  167.   !endif
  168.   !set 4_=
  169.   !for ad=1 to $wims_homeref_author_num
  170.     !set adreplace=$(module_address[$ad])
  171.     !if $adreplace=$empty
  172.       !set adreplace=$module_maintainer_address
  173.     !endif
  174.     !if $adreplace!= and @ isin $adreplace
  175.       !!!#### xiao treatment - should disappear when modules are republished
  176.      !if xiao isin $adreplace
  177.         !set adreplace=qualite@wimsedu.info
  178.       !endif
  179.       !!!####
  180.      !set 4__=!mailurl $adreplace $(script_out[$ad])\
  181. WIMS $module_title [$module_language]
  182.     !else
  183.       !set 4__=$(script_out[$ad])
  184.     !endif
  185.     !set 4_=!append item $4__ to $4_
  186.   !next
  187.   !set 2_=!append line author,0,$3_ $4_ to $2_
  188. !endif
  189.  
  190. !!********* Link #9 : "Translator(s)"
  191. !set mod_transl=$(module_translator_$lang)
  192. !if $module_transl!=$empty
  193.   !set module_translator=$mod_transl
  194.   !set module_translator_address=$(module_translator_address_$lang)
  195. !endif
  196.  
  197. !if $module_translator!=$empty and $module_translator_address!=$empty
  198.   !read namewriting.phtml $module_translator
  199.   !set module_translator_address=!replace internal ; by , in $module_translator_address
  200.   !set module_translator=$(script_out[1])
  201.   !set wims_homeref_translator_num=$script_cnt
  202.   !for ad=1 to $wims_homeref_translator_num
  203.     !set 3_=!mailurl $(module_translator_address[$ad]) $(module_translator[$ad])\
  204. WIMS $module_title [$module_language]
  205.     !set 2_=!append line trans,0,$wims_name_translatedby $3_ to $2_
  206.   !next
  207. !endif
  208.  
  209. !!********* Link #10 : "Version & Copyright"
  210. !if $module_version$module_copyright!=$empty
  211.   !set 2_=!append line version,0,$wims_name_Version $module_version, $module_copyright to $2_
  212. !endif
  213.  
  214. !!********* Link #11 : "Modify"
  215. !if $wims_developer!=$empty and COPYING isin $module_copyright
  216.   !set V_=!char 1 of $module
  217.   !set M_=!translate internal / to , in $module
  218.   !set M_=!item 1 of $M_
  219.   !if $V_ isin ABCDEFGHIJKLMNOPQRTSUVWXYZ or $M_ iswordof local contrib tool
  220.     !set  wims_rm_0=!append line modify,1,module=adm/modtool&original=$module to $wims_rm_0
  221.   !endif
  222. !endif
  223.  
  224. !!********* Link #12 : "Server Time"
  225. !if $wims_ismanager>=2
  226.   !set 2_=!append line time,0,$wims_name_server_time: $wims_now to $2_
  227. !endif
  228.  
  229. !set wims_rm_2=$2_
  230.  
  231. :rmend
  232. !set wims_homeref_n0=!linecnt $wims_rm_0
  233. !set wims_homeref_n1=!linecnt $wims_rm_1
  234. !set wims_homeref_n2=!linecnt $wims_rm_2
  235. !!!set wims_homeref_n3=!linecnt $wims_rm_3
  236.  
  237. <!-- END of html/homeref.phtml -->
  238. !read themes.phtml tail
  239. !robottrap
  240.