Subversion Repositories wimsdev

Rev

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

  1.  
  2. !if robot isin $session or $wims_mode=popup or _check isin $session
  3.  !exit
  4. !endif
  5.  
  6. !read name.phtml.$module_language
  7. !default wims_name_bgcolor=$wims_ref_bgcolor
  8. !if $wims_hm!=$empty
  9.  !goto defend
  10. !endif
  11.  
  12. !reset 1_
  13. !if _ isin $wims_subsession
  14.  !set 1_=!append line back,3,window.close() to $1_
  15. !else
  16.  !set 1_=!append line home,1,session=$wims_session.1 to $1_
  17. !endif
  18. !if $httpd_HTTP_REFERER!=$empty
  19.  !set 1_=!append line exit,2,$httpd_HTTP_REFERER to $1_
  20. !endif
  21. !if $cmd=intro
  22.  !set 1_=!append line work,1,module=$module&cmd=new to $1_
  23. !endif
  24. !if $wims_sheet>0 or P isin $wims_sheet
  25.  !set 1_=!append line sheet,1,module=adm/sheet&sh=$wims_sheet to $1_
  26. !endif
  27. !if $module_has_intro=yes and $cmd notwordof intro help
  28.  !set 1_=!append line intro,1,module=$module&cmd=intro&special_parm=$wims_intro_parm to $1_
  29. !endif
  30. !if _ notin $wims_session and adm/ notin $module \
  31.         and $cmd notwordof help ref
  32.  !set 1_=!append line ref,4,module=$module&cmd=ref&special_parm=$cmd,ref to $1_
  33. !endif
  34. !if $module_has_help=yes and $cmd notwordof intro help
  35.  !if $module_help=$empty or $module_help=popup
  36.   !set 1_=!append line help,4,module=$module&cmd=help&special_parm=$wims_help_parm,mhelp to $1_
  37.  !else
  38.   !set 1_=!append line help,1,module=$module&cmd=help&special_parm=$wims_help_parm to $1_
  39.  !endif
  40. !endif
  41. !if $cmd=help or $cmd=hint
  42.  !set 1_=!append line resume,1,cmd=resume to $1_
  43. !endif
  44. !if $module_has_about=yes and $cmd notwordof help intro
  45.  !set 1_=!append line about,4,module=$module&cmd=help&special_parm=about,mhelp to $1_
  46. !endif
  47. !set 1_=!append line whelp,4,module=help/main&$wims_helper,help to $1_
  48. !if $wims_ref_otherlangs=yes and $wims_otherlangs!=$empty
  49.  !if $wims_light_module=yes
  50.   !set wims_name_pagebase=!char 1 to -4 of $phtml
  51.   !for i_ in $wims_headmenu_languages
  52.    !set 1_=!append line $i_,0,<a href=wims.cgi?session=$session&lang=$i_&useropts=$useropts&module=$module&phtml=$wims_name_pagebase.$i_&parm1=$parm1&parm2=$parm2&parm3=$parm3&parm4=$parm4&parm5=$parm5><img src=gifs/$i_.gif border=1 alt=$i_></a> to $1_
  53.   !next i_
  54.  !else
  55.   !set wims_name_mbase=!char 1 to -4 of $module
  56.   !for i_ in $wims_otherlangs
  57.    !set 1_=!append line $i_,0,<a href=wims.cgi?session=$session&lang=$i_&useropts=$useropts&module=$wims_name_mbase><img src=gifs/$i_.gif border=1 alt=$i_></a> to $1_
  58.   !next i_
  59.  !endif
  60. !endif
  61.  
  62. !set wims_hm=$1_
  63. :defend
  64. !set wims_hm_cnt=!linecnt $wims_hm
  65. !read themes.phtml header
  66. <div class=wimsbody>
  67.