CREATE OR REPLACE PACKAGE BODY efno_disclaimer IS

  PROCEDURE display IS
  
    CURSOR cu_disc IS
    SELECT text
    FROM disclaimer
    WHERE language = caco_utilities.get_syus_lang; 
    
    l_disc disclaimer.text%type;
    
  BEGIN
--    caco_debug.debug_on;
--    htp.p(caco_utilities.get_syus_lang);
    htp.htmlopen;
    htp.headopen;
    htp.title(ctitle => g_title);
    --
    caco_system.content_type;
    --
    htp.linkrel('stylesheet'
               ,'caco_system.css?p_type=general');
    htp.headclose;
    htp.bodyopen;
    htp.print(caco_system.menu);
    htp.header(nsize   => 1
              ,cheader => g_title);
    OPEN cu_disc;
    FETCH cu_disc INTO l_disc;
    CLOSE cu_disc;
    htp.p(l_disc);
    htp.p('<br>');
    htp.p('<p><a href='''||caco_system.dad_path||''' title="Home">Home</a></li></p>');
    htp.bodyclose;
    htp.htmlclose;

  END display;

END efno_disclaimer;
/