Subversion Repositories wimsdev

Rev

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

  1. !!************** homeref.phtml  ****************
  2.  
  3. !! This File creates 2 sets of links, to put in the tail menu of Wims.
  4. !! 1st set contains up to 6 links
  5. !! 2nd set contains informations about author(s), and mail links to them.
  6.  
  7. !! **********************************************
  8.  
  9.  
  10. !if robot isin $session or _check isin $session
  11.  !if robot isin $session and wims.unice.fr notin $httpd_SERVER_NAME\
  12.         and $cmd iswordof new intro
  13.   !set wims_c1=!char 1 of $module
  14.   !if $wims_c1 isin ABCDEFGHIJKLMNOPQRSTUVWXYZ or ../tool isin ../$module
  15.    !set wims_md=!translate . to , in $module
  16.    !set wims_md=!item -1 of $wims_md
  17.    !set wims_mdcnt=!charcnt $wims_md
  18.    !if $wims_mdcnt=2
  19.     !set wims_ff=!translate / to ~ in $module
  20.     <small><a href="http://wims.unice.fr/wims/$(wims_md)_$wims_ff.html">The most recent version</a></small><br>
  21.    !endif
  22.   !endif
  23.  !endif
  24.  !changeto robotref.phtml
  25. !endif
  26.  
  27. !if $wims_mode=popup
  28.  </div>
  29.  <div class="wimstail">
  30.         <hr>
  31.         <table border="0" width="100%">
  32.                 <tr><td align="left">
  33.                 <small>
  34.                  <a target="wims" href="http://$httpd_HTTP_HOST$httpd_SCRIPT_NAME">WIMS @ $httpd_HTTP_HOST</a>
  35.                 </small>
  36.                 </td></tr>
  37.         </table>
  38.  </div>
  39.  !exit
  40. !endif
  41.  
  42. !if _test isin $session and $wims_hacked_variables!=$empty
  43.  <p><b>WIMS WARNING</b>. The following variables of your module could be hacked
  44.  by students using manually modified http addresses! You might want to put more
  45.  strict permissions to them in var.def, in order to build a secure exercise module.</p>
  46.  <tt><b>$wims_hacked_variables</b></tt>
  47.  <br>
  48. !endif
  49.  
  50. !read name.phtml.$module_language
  51. !default wims_homeref_bgcolor=$wims_ref_bgcolor
  52.  
  53. !if $wims_rm_1=no
  54.  !reset wims_rm_1
  55.  !goto local
  56. !endif
  57. !if $wims_rm_1!=$empty
  58.  !goto rm2
  59. !endif
  60.  
  61. !reset 1_
  62.  
  63. !!********* Link #1 : "Close Window" or "Home" (Not Shown if Embedded)
  64. !if _ isin $wims_subsession
  65.  !set 1_=!append line back2,3,window.close() to $1_
  66. !else
  67.  !if $window != embeded
  68.   !set 1_=!append line home,1,session=$wims_session.1 to $1_
  69.  !endif
  70. !endif
  71.  
  72. !!********* Link #2 : "Sheet"
  73. !if $wims_sheet>0 or P isin $wims_sheet
  74.  !set 1_=!append line sheet,1,module=adm/sheet&sh=$wims_sheet to $1_
  75. !endif
  76.  
  77. !!********* Link #3 : "Resume"
  78. !if $cmd=help or $cmd=hint
  79.  !set 1_=!append line resume,1,cmd=resume to $1_
  80. !endif
  81.  
  82. !!********* Link #4 : "Introduction" (Not Shown if Embedded)
  83. !if $window != embeded and $module_has_intro=yes and $cmd notwordof intro help
  84.  !set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$wims_intro_parm to $1_
  85. !endif
  86.  
  87. !!********* Link #5 : "Help"
  88. !if $module_help!=$empty and $module_has_help=yes and $cmd notwordof intro help
  89.  !if $module_help=popup
  90.   !set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_
  91.  !else
  92.   !set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_
  93.  !endif
  94. !endif
  95.  
  96. !!********* Link #6 : "About"
  97. !if $module_has_about=yes and $cmd notwordof help intro
  98.  !set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
  99. !endif
  100.  
  101. !set wims_rm_1=$1_
  102. :local
  103. !reset 1_
  104. !set 1_=!append line $wims_menu_items to $1_
  105. !set wims_rm_0=$1_
  106. :rm2
  107. !if $wims_rm_2!=$empty
  108.  !goto rmend
  109. !endif
  110. !reset 2_
  111.  
  112. !!********* Link #8 : "Author(s)"
  113. !if $module_author!=$empty and @ isin $module_address
  114.  !set wims_homeref_author_num=!itemcnt $module_author
  115.  !if $wims_homeref_author_num>1
  116.   !set 3_=$wims_name_authors:
  117.  !else
  118.   !set 3_=$wims_name_author:
  119.  !endif
  120.  !set 4_=!mailurl $module_address $module_author\
  121. WIMS $module_title [$module_language]
  122.  !set 2_=!append line author,0,$3_ $4_ to $2_
  123. !endif
  124.  
  125. !!********* Link #9 : "Translator(s)"
  126. !if $module_translator!=$empty and $module_translator_address!=$empty
  127.  !set 3_=!mailurl $module_translator_address $module_translator\
  128. WIMS $module_title [$module_language]
  129.  !set 2_=!append line trans,0,$wims_name_translatedby $3_ to $2_
  130. !endif
  131.  
  132. !!********* Link #10 : "Version & Copyright"
  133. !if $module_version$module_copyright!=$empty
  134.  !set 2_=!append line vesion,0,Version $module_version, $module_copyright to $2_
  135. !endif
  136.  
  137. !!********* Link #11 : "Modify"
  138. !if $wims_developer!=$empty and COPYING isin $module_copyright
  139.  !set V_=!char 1 of $module
  140.  !set M_=!translate internal / to , in $module
  141.  !set M_=!item 1 of $M_
  142.  !if $V_ isin ABCDEFGHIJKLMNOPQRTSUVWXYZ or $M_ iswordof local contrib tool
  143.   !set  wims_rm_0=!append line modify,1,module=adm/modtool&original=$module to $wims_rm_0
  144.  !endif
  145. !endif
  146.  
  147. !!********* Link #12 : "Server Time"
  148. !if $wims_ismanager>=2
  149.  !set 2_=!append line time,0,Server time: $wims_now to $2_
  150. !endif
  151.  
  152. !set wims_rm_2=$2_
  153.  
  154. :rmend
  155. !set wims_homeref_n1=!linecnt $wims_rm_1
  156. !set wims_homeref_n2=!linecnt $wims_rm_2
  157. !set wims_homeref_n0=!linecnt $wims_rm_0
  158. </div>
  159.  
  160. !read themes.phtml tail
  161. !robottrap
  162.  
  163.