Subversion Repositories wimsdev

Rev

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

  1. !!@#language independant
  2. !if robot isin $session
  3.   !exit
  4. !endif
  5. !if $(module_title_$modu_lang)!=
  6.   !set module_title=$(module_title_$modu_lang)
  7. !endif
  8. !header
  9. !if $compute=yes
  10.   !if $error!=$empty
  11.     !if $mtype!=$empty
  12.     <div class="wims_alertmsg">
  13.      !read msg.phtml
  14.     </div>
  15.     !endif
  16.     <div class="wims_content">
  17.     !read menu.phtml
  18.     </div>
  19.     !goto end
  20.   !else
  21.     !if $transfert issametext or $transfert=yes
  22.       !set wims_form_method=file
  23.       !read transfert.phtml
  24.     !else
  25.         <div class="wims_content">
  26.       !read menu.phtml
  27.       </div>
  28.     !endif
  29.   !endif
  30. !else
  31.     <div class="wims_content">
  32.   !read menu.phtml
  33.   </div>
  34. !endif compute=yes?
  35.  
  36. :end
  37.  
  38. !if $type_exo!=$empty
  39.   !set wims_menu_items=!append line modtool,1,module=adm/modtool\
  40.   back2,1,module=$module\
  41.   ,0,\
  42.    to $wims_menu_items
  43. !else
  44.  !set wims_menu_items=!append line modtool,1,module=adm/modtool\
  45.   to $wims_menu_items
  46. !endif
  47.  
  48.  
  49. !if $wims_developer!= and $type_exo=
  50. !set wims_menu_items=!append line  ,0,\
  51.    to $wims_menu_items
  52. !set u = !linecnt $name      
  53. !for i = 1 to $u
  54.    !set cnt=!itemcnt $(name[$i;])
  55.    !for a =1 to $cnt
  56.      !set wims_menu_items=!append line quick_$(name[$i;$a]),1,cmd=reply&type_exo=$(name[$i;$a])\
  57.     to $wims_menu_items
  58.    !next a
  59. !next
  60. !endif
  61. !tail
  62.  
  63. !reset wims_exec_error wims_deposit
  64.