Subversion Repositories wimsdev

Rev

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