Subversion Repositories wimsdev

Rev

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

  1. !if robot isin $session or _check isin $session
  2.  !if robot isin $session and wims.unice.fr notin $httpd_SERVER_NAME\
  3.         and $cmd iswordof new intro
  4.   !set wims_c1=!char 1 of $module
  5.   !if $wims_c1 isin ABCDEFGHIJKLMNOPQRSTUVWXYZ or ../tool isin ../$module
  6.    !set wims_md=!translate . to , in $module
  7.    !set wims_md=!item -1 of $wims_md
  8.    !set wims_mdcnt=!charcnt $wims_md
  9.    !if $wims_mdcnt=2
  10.     !set wims_ff=!translate / to ~ in $module
  11.     <small><a href=http://wims.unice.fr/wims/$(wims_md)_$wims_ff.html>The most
  12.     recent version</a></small> <p>
  13.    !endif
  14.   !endif
  15.  !endif
  16.  !changeto robotref.phtml
  17. !endif
  18.  
  19. !if $wims_mode=popup
  20.  <P></div><div class=wimstail>
  21.  <hr><table border=0 width=100%>
  22.  <tr><td align=left><small>
  23.  <a target=wims href=http://$httpd_HTTP_HOST$httpd_SCRIPT_NAME>WIMS @ $httpd_HTTP_HOST</A>
  24. !! </small>
  25. !! <td align=right><small><a target=wims_help
  26. !! href=
  27.  </small></table></div>
  28.  !exit
  29. !endif
  30.  
  31. !if _test isin $session and $wims_hacked_variables!=$empty
  32.  <p><b>WIMS WARNING</b>. The following variables of your module could be hacked
  33.  by students using manually modified http addresses! You might want to put more
  34.  strict permissions to them in var.def, in order to build a secure exercise module.
  35.  <p><tt><b>$wims_hacked_variables</b></tt>
  36.  <p>
  37. !endif
  38.  
  39. !read name.phtml.$module_language
  40. !default wims_homeref_bgcolor=$wims_ref_bgcolor
  41. !if $wims_rm_1!=$empty
  42.  !goto rm2
  43. !endif
  44. !reset 1_
  45. !if _ isin $wims_subsession
  46.  !set 1_=!append line back2,3,window.close() to $1_
  47. !else
  48.  !set 1_=!append line home,1,session=$wims_session.1 to $1_
  49. !endif
  50. !if $wims_sheet>0 or P isin $wims_sheet
  51.  !set 1_=!append line sheet,1,module=adm/sheet&sh=$wims_sheet to $1_
  52. !endif
  53. !if $cmd=help or $cmd=hint
  54.  !set 1_=!append line resume,1,cmd=resume to $1_
  55. !endif
  56. !if $module_has_intro=yes and $cmd notwordof intro help
  57.  !set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$wims_intro_parm to $1_
  58. !endif
  59. !if $module_has_help=yes and $cmd notwordof intro help
  60.  !if $module_help=$empty or $module_help=popup
  61.   !set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_
  62.  !else
  63.   !set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_
  64.  !endif
  65. !endif
  66. !if $module_has_about=yes and $cmd notwordof help intro
  67.  !set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
  68. !endif
  69. !set wims_rm_1=$1_
  70.  
  71. :rm2
  72. !if $wims_rm_2!=$empty
  73.  !goto rmend
  74. !endif
  75. !reset 2_
  76. !if $module_author!=$empty and @ isin $module_address
  77.  !set wims_homeref_author_num=!itemcnt $module_author
  78.  !if $wims_homeref_author_num>1
  79.   !set 3_=$wims_name_authors:
  80.  !else
  81.   !set 3_=$wims_name_author:
  82.  !endif
  83.  !set 4_=!mailurl $module_address $module_author\
  84. WIMS $module_title [$module_language]
  85.  !set 2_=!append line author,0,$3_ $4_ to $2_
  86. !endif
  87. !if $module_translator!=$empty and $module_translator_address!=$empty
  88.  !set 3_=!mailurl $module_translator_address $module_translator\
  89. WIMS $module_title [$module_language]
  90.  !set 2_=!append line trans,0,$wims_name_translatedby $3_ to $2_
  91. !endif
  92. !if $module_version$module_copyright!=$empty
  93.  !set 2_=!append line vesion,0,Version $module_version, $module_copyright to $2_
  94. !endif
  95. !if $wims_developer!=$empty and COPYING isin $module_copyright
  96.  !set V_=!char 1 of $module
  97.  !set M_=!translate internal / to , in $module
  98.  !set M_=!item 1 of $M_
  99.  !if $V_ isin ABCDEFGHIJKLMNOPQRTSUVWXYZ or $M_ iswordof local contrib tool
  100.   !set 2_=!append line modify,1,module=adm/modtool&original=$module to $2_
  101.  !endif
  102. !endif
  103. !if $wims_ismanager>=2
  104.  !set 2_=!append line time,0,Server time: $wims_now to $2_
  105. !endif
  106.  
  107. !set wims_rm_2=$2_
  108. :rmend
  109. !set wims_homeref_n1=!linecnt $wims_rm_1
  110. !set wims_homeref_n2=!linecnt $wims_rm_2
  111. </p></div>
  112.  
  113. !read themes.phtml tail
  114. !robottrap
  115.  
  116.