Subversion Repositories wimsdev

Rev

Rev 2667 | 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. !!!reset wims_html_header
  6. !! !read js/keyboard.phtml notepad
  7. !! $wims_html_header
  8.  
  9. !header
  10. !if $compute=yes
  11.   !if $error!=$empty
  12.     !if $mtype!=$empty
  13.      !read msg.phtml
  14.     !endif
  15.     !read menu.phtml
  16.     !goto end
  17.   !else
  18.     !if $transfert issametext or $transfert=yes
  19.       !set wims_form_method=file
  20.       !read transfert.phtml
  21.     !else
  22.       !read menu.phtml
  23.     !endif
  24.   !endif
  25. !else
  26.   !read menu.phtml
  27. !endif compute=yes?
  28.  
  29. :end
  30.  
  31. !if $type_exo!=$empty
  32.   !set wims_menu_items=!append line modtool,1,module=adm/modtool\
  33.   intro,1,module=$module\
  34.   ,0,\
  35.    to $wims_menu_items
  36. !else
  37.  !set wims_menu_items=!append line modtool,1,module=adm/modtool\
  38.   ,0,\
  39.   to $wims_menu_items
  40. !endif
  41.  
  42.  
  43. !if $wims_developer!= and $type_exo=
  44. !set u = !linecnt $name      
  45. !for i = 1 to $u
  46.    !set cnt=!itemcnt $(name[$i;])
  47.    !for a =1 to $cnt
  48.      !set wims_menu_items=!append line $(name[$i;$a]),1,cmd=reply&type_exo=$(name[$i;$a])\
  49.     to $wims_menu_items
  50.    !next a
  51. !next
  52. !endif
  53. !tail
  54.  
  55. !reset wims_exec_error wims_deposit
  56.  
  57.