~defunc("d",~get('messages[~sparam(1)]'))

~if(~get('lang')=='',~set('langdoc',~bestlang(~array('en','fr'),'en')),~set('langdoc',~get('lang')))
~include("langdoc.~get('langdoc').tmpl")

~set('title',~d('title'))


~include('~relative_base()auth/header.~get('langdoc').tmpl')
~include('~relative_base()auth/menu.~get('langdoc').tmpl')
~include('menu.~get('langdoc').tmpl')

~set('templeetmoduledir','templeet/modules/')
~set('docdir','~relative_templeet()templeet_doc/')

~array_list(~getconf('function2module'),0,,'LM',
    ~if(~array_fld('current')==~get_filename(),
         ~set('func_array[~array_fld('key')]',1)
       )
   )

~if(!~file_exists('~getconf('templatedir')templeet_doc/~get('langdoc')/~get_filename().tmpl'),
	{
	  ~if(~is_array(~get('func_array')),
	      {  
		~set('func_array',~ksort(~get('func_array'))),
		~set('template_txt',~d('headdoc1')),
	  
		~array_list(~get('func_array'),0,,
		    'LM',~set('template_txt',<![LINE[~get('template_txt') 
'~array_fld('key')' => ~string('~')array( "~array_fld('key')","~array_fld('key')"),]LINE]>),
		    'LN',~set('template_txt',<![LINE[~get('template_txt') 
'~array_fld('key')' => ~string('~')array( "~array_fld('key')","~array_fld('key')")]LINE]>)
		    ),
		~set('template_txt',"~get('template_txt')~d('headdoc2')"),
		~array_list(~get('func_array'),0,,
		    'LM',~set('template_txt',"~get('template_txt')~dline(~array_fld('key'))")
		    ),
	    
		~writefile("~getconf('templatedir')templeet_doc/~get('langdoc')/~get_filename().tmpl",~get('template_txt')),
		~include('~get('langdoc')/~get_filename().tmpl')
	      })  

	},
	
        <![DOC[
        ~include('~get('langdoc')/~get_filename().tmpl')

        ~array_list(~get('func_array'),0,,
          'LM',
             ~if(~get('inst[~get_filename()][~array_fld('key')]')=="" &&
                 ~get('inst[~get_filename()][!~array_fld('key')]')=="",
                      ~dline(~array_fld('key'))
                )
          )
        ]DOC]>
	
	)
		
~include('~relative_base()auth/footer.~get('langdoc').tmpl')