Subversion Repositories wimsdev

Rev

Rev 15909 | Rev 16022 | 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.   !else
  14.     !if about isitemof $wims_lightpopup_option
  15.       !set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
  16.     !endif
  17.     !set wims_rm_1=$1_
  18.   !endif
  19.   !goto rmend
  20. !endif
  21.  
  22. !if robot isin $session or _check isin $session
  23.   !if robot isin $session and wims.univ-cotedazur.fr notin $httpd_SERVER_NAME\
  24.       and $cmd iswordof new intro
  25.     !set wims_c1=!char 1 of $module
  26.     !if $wims_c1 isin ABCDEFGHIJKLMNOPQRSTUVWXYZ or ../tool isin ../$module
  27.       !set wims_md=!translate . to , in $module
  28.       !set wims_md=!item -1 of $wims_md
  29.       !set wims_mdcnt=!charcnt $wims_md
  30.       !if $wims_mdcnt=2
  31.         !set wims_ff=!translate / to ~ in $module
  32.         <small><a href="https://wims.univ-cotedazur.fr/wims/$(wims_md)_$wims_ff.html">The most recent version</a></small><br/>
  33.       !endif
  34.     !endif
  35.   !endif
  36.   !changeto robotref.phtml
  37. !endif
  38.  
  39. !if $wims_mode=popup
  40.   <div class="wimstail">
  41.     <hr/>
  42.     <small>
  43.      <a target="wims" href="http://$httpd_HTTP_HOST$httpd_SCRIPT_NAME">WIMS @ $httpd_HTTP_HOST</a>
  44.     </small>
  45.   </div>
  46.   !exit
  47. !endif
  48.  
  49. !if _test isin $session and $wims_hacked_variables!=$empty
  50.   <p><span class="wims_warning">WIMS WARNING</span>. The following variables of your module could be hacked
  51.   by students using manually modified http addresses! You might want to put more
  52.   strict permissions to them in var.def, in order to build a secure exercise module.
  53.   </p>
  54.   <pre>$wims_hacked_variables</pre>
  55. !endif
  56.  
  57. !read name.phtml.$module_language
  58. !read themes/_lang/name.phtml.$lang
  59. !read themes/$wims_theme/lang/name.phtml.$lang
  60. !default wims_homeref_bgcolor=$wims_ref_bgcolor
  61.  
  62. !if $wims_rm_1=no
  63.   !reset wims_rm_1
  64.   !goto local
  65. !endif
  66. !if $wims_rm_1!=$empty
  67.   !goto rm2
  68. !endif
  69. !reset 1_
  70.  
  71. !!********* Link #1 : "Close Window" or "Home" (Not Shown if Embedded)
  72. !if _ isin $wims_subsession
  73.   !set 1_=!append line back,3,window.close() to $1_
  74. !else
  75.   !if $window != embeded
  76.     !!set 1_=!append line home,1,session=$wims_session.1 to $1_
  77.   !endif
  78. !endif
  79.  
  80. !!********* Link #2 : "Sheet"
  81. !if $wims_sheet>0 or P isin $wims_sheet
  82.   !if $wims_sequence>0
  83.     !set tmp_=sheet,1,module=adm/sheet&sh=$wims_sheet&seq=$wims_sequence
  84.   !else
  85.     !set tmp_=sheet,1,module=adm/sheet&sh=$wims_sheet&
  86.   !endif
  87.   !set 1_=!append line $tmp_ to $1_
  88.   !let wims_menu_items=!append line $tmp_ to $wims_menu_items
  89.   !let p=!positionof item $wims_exo in $wims_listexo
  90.   !if $wims_exo!=$(wims_listexo[1])
  91.     !let wims_menu_items=!append line previousseries,1,module=home&directworksheet=$wims_sheet.$(wims_listexo[$p-1]) to $wims_menu_items
  92.   !endif
  93.   !if $wims_exo!=$(wims_listexo[-1])
  94.     !let wims_menu_items=!append line nextseries,1,module=home&directworksheet=$wims_sheet.$(wims_listexo[$p+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.   !if $V_ isin ABCDEFGHIJKLMNOPQRTSUVWXYZ or $(M_[1]) iswordof local contrib tool \
  215.     or ($(M_[1]) iswordof help and $(M_[3])!=$empty)
  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.