Subversion Repositories wimsdev

!if robot isin $session
 !exit
!endif
!read adm/language lang/names.phtml

!set list_taxo=!listfile $module_dir/taxoext
!set list_taxo=!lines2items $list_taxo

wims_prefix=class user tmp
!bound job within home,type,subject,level,best,new,taxo,light default home
!read tabletheme

search_addr=!nosubst module=home&language=$lang&search_keywords=$key&search_category=$cat&search_and=$search_and&$browse_parm
browse_parm=browse_job=$job&browse_parm=$parm

!if $modu_lang notwordof en it fr ca es nl cn
  !set dir_lang=wimshome/public_html/bases/sys/domain/domain.en
!else
  !set dir_lang=wimshome/public_html/bases/sys/domain/domain.$modu_lang
!endif
!set dir=wimshome/public_html/bases/sys/domain
!set treefile=$dir/reversedomain
!set dir=$dir/domain

Tot_dom=!lookup domain in $dir
Tot_dom=!sort items $Tot_dom
!for d in $Tot_dom
  tot_dom_$d=!lookup $d in $dir
  !for l in  $(tot_dom_$d)
    dom_$l=!lookup $l in $dir
  !next
!next
!reset list_taxonomy

!for taxo in $list_taxo
  !if .$(lang)__ isin $(taxo)__
    !set lang_exists=!defof lang_exists in taxoext/$taxo
    !if $lang_exists=yes
      !set script_taxo=yes
      !set list_taxonomy=!append item taxoext/$taxo to $list_taxonomy
    !endif
  !endif
!next
!! take the english version
!for taxo in $list_taxo
  !set tmp=!replace internal . by , in $(taxo)
  !if $(tmp[1]) notin $list_taxonomy
    !set script_taxo=yes
    !set list_taxonomy=!append item taxoext/$(tmp[1]).phtml.en to $list_taxonomy
  !endif
!next

!set lang_exists=!defof lang_exists in keywords.phtml.$lang
!if $lang_exists=yes
  !set script_keywords=yes
!endif

!read $job.proc
!set wims_ariane_self=no
!if $job=home
  !set wims_ariane=!append line browse,8\
to $wims_ariane
!else
  !set wims_ariane=!append line browse,1,module=$module&cmd=new\
to $wims_ariane
!endif

!if $job=subject
  !set parm_father=!lookup $parm in $treefile
  !if $parm_father!=$empty
    !set wims_ariane=!append line back2 $parm_father,1,module=$module&cmd=new&job=subject&parm=$parm_father\
to $wims_ariane
  !else
    !set wims_ariane=!append line "$(name_by_$job)",8 to $wims_ariane
  !endif
!else
  !if $job isitemof subject,taxo,level,type
    !set wims_ariane=!append line "$(name_by_$job)",8 to $wims_ariane
  !else
    !set wims_ariane=!append line "$(name_$job)",8 to $wims_ariane
  !endif
!endif

!if $job!=home
  wims_module_log=$job $parm
!endif