;   /portail/dev/htdocs/intranet/doc/idl 

  path = ROUTINE_FILEPATH()
  root = strmid(path,0, strlen(path)-strlen('gen_idldoc.pro'))
  dirDOC = root+'../docidl/'

  restore, root+'idldoc/idldoc.sav'

  title = 'IMCCE IDL Documentation'
  item = ['contrib', $
          'contrib/fits/', $
          'contrib/vo/', $
          'contrib/sdss/', $
          'suites/astroim/', $
          'suites/koala/', $
          'suites/ssodd/', $
          'suites/PSV/trunk/', $
          'suites/ViSION/']

  tree = ['toolbox', $
          'fits', $
          'vo', $
          'sdss', $
          'astroim', $
          'koala', $
          'ssodd', $
          'psv', $
          'vision']

  subtitle = ['IMCCE Toolbox', $
              'FITS header tools', $
              'VO tools', $
              'SDSS tools', $
              'AstroIM', $
              'KOALA', $
              'Solar System Objects Density Database', $
              'Planetary Scene Viewer', $
              'ViSION']

  choice = [ 1, $  ;-User Contrib
             1, $  ;-FITS
             1, $  ;-VO
             1, $  ;-SDSS
             1, $  ;-AstroIM
             1, $  ;-KOALA 
             1, $  ;-SSODD
             1, $  ;-PSV
             1  ]  ;-ViSION

  sel = where( choice eq 1, nbDoc )

  for kDoc=0, nbDoc-1 do begin
    
    idldoc, root=root+item(sel(kDoc)), output=dirDOC+tree(sel(kDoc)), $
;            title=title, subtitle=subtitle(sel(kDoc)), $
            title=subtitle(sel(kDoc)), $
            format_style='idl', $
            markup_style='verbatim', $
            comment_style='html', $
            /statistics, /quiet
  endfor

end