Subversion Repositories wimsdev

Rev

Rev 1021 | Rev 1193 | 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!=$empty
  54.  !goto rm2
  55. !endif
  56.  
  57. !reset 1_
  58.  
  59. !!********* Link #1 : "Close Window" or "Home" (Not Shown if Embedded)
  60. !if _ isin $wims_subsession
  61.  !set 1_=!append line back2,3,window.close() to $1_
  62. !else
  63.  !if $window != embeded
  64.   !set 1_=!append line home,1,session=$wims_session.1 to $1_
  65.  !endif
  66. !endif
  67.  
  68. !!********* Link #2 : "Sheet"
  69. !if $wims_sheet>0 or P isin $wims_sheet
  70.  !set 1_=!append line sheet,1,module=adm/sheet&sh=$wims_sheet to $1_
  71. !endif
  72.  
  73. !!********* Link #3 : "Resume"
  74. !if $cmd=help or $cmd=hint
  75.  !set 1_=!append line resume,1,cmd=resume to $1_
  76. !endif
  77.  
  78. !!********* Link #4 : "Introduction" (Not Shown if Embedded)
  79. !if $window != embeded and $module_has_intro=yes and $cmd notwordof intro help
  80.  !set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$wims_intro_parm to $1_
  81. !endif
  82.  
  83. !!********* Link #5 : "Help"
  84. !if $module_help!=$empty and $module_has_help=yes and $cmd notwordof intro help
  85.  !if $module_help=popup
  86.   !set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_
  87.  !else
  88.   !set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_
  89.  !endif
  90. !endif
  91.  
  92. !!********* Link #6 : "About"
  93. !if $module_has_about=yes and $cmd notwordof help intro
  94.  !set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
  95. !endif
  96.  
  97. !set wims_rm_1=$1_
  98.  
  99. :rm2
  100. !if $wims_rm_2!=$empty
  101.  !goto rmend
  102. !endif
  103.  
  104. !reset 2_
  105.  
  106. !!********* Link #8 : "Author(s)"
  107. !if $module_author!=$empty and @ isin $module_address
  108.  !set wims_homeref_author_num=!itemcnt $module_author
  109.  !if $wims_homeref_author_num>1
  110.   !set 3_=$wims_name_authors:
  111.  !else
  112.   !set 3_=$wims_name_author:
  113.  !endif
  114.  !set 4_=!mailurl $module_address $module_author\
  115. WIMS $module_title [$module_language]
  116.  !set 2_=!append line author,0,$3_ $4_ to $2_
  117. !endif
  118.  
  119. !!********* Link #9 : "Translator(s)"
  120. !if $module_translator!=$empty and $module_translator_address!=$empty
  121.  !set 3_=!mailurl $module_translator_address $module_translator\
  122. WIMS $module_title [$module_language]
  123.  !set 2_=!append line trans,0,$wims_name_translatedby $3_ to $2_
  124. !endif
  125.  
  126. !!********* Link #10 : "Version & Copyright"
  127. !if $module_version$module_copyright!=$empty
  128.  !set 2_=!append line vesion,0,Version $module_version, $module_copyright to $2_
  129. !endif
  130.  
  131. !!********* Link #11 : "Modify"
  132. !if $wims_developer!=$empty and COPYING isin $module_copyright
  133.  !set V_=!char 1 of $module
  134.  !set M_=!translate internal / to , in $module
  135.  !set M_=!item 1 of $M_
  136.  !if $V_ isin ABCDEFGHIJKLMNOPQRTSUVWXYZ or $M_ iswordof local contrib tool
  137.   !set 2_=!append line modify,1,module=adm/modtool&original=$module to $2_
  138.  !endif
  139. !endif
  140.  
  141. !!********* Link #12 : "Server Time"
  142. !if $wims_ismanager>=2
  143.  !set 2_=!append line time,0,Server time: $wims_now to $2_
  144. !endif
  145.  
  146. !set wims_rm_2=$2_
  147.  
  148. :rmend
  149. !set wims_homeref_n1=!linecnt $wims_rm_1
  150. !set wims_homeref_n2=!linecnt $wims_rm_2
  151. </div>
  152.  
  153. !read themes.phtml tail
  154. !robottrap
  155.  
  156.