CREATE OR REPLACE PACKAGE BODY EFT_NOM.lihp_home_page IS
  /**
  -- Purpose : Produce Home Page Information
  -- #version $Revision: $
  -- #author $Author: $
  -- Created : 29/11/2005 15:35:34
  */
  --
  /*
  $Header: $  Logfile, Revision, Date, Author

  29/11/2005: $  Date and time of last checkin
  $Modtime: $  Date and time of last modification

  $History: $
  */
  --
  v_gas_day DATE := cout_dates.convert_date_to_gas_day(SYSDATE);
  --
  PROCEDURE ins_usho IS
  BEGIN
    --
    --
    --
    INSERT INTO user_homepage (hoev_id, hoel_id, syus_id, usho_id)
    SELECT hoev.hoev_id, hoel.hoel_id, caco_utilities.get_syus_id, TO_CHAR(caco_utilities.get_syus_id)||hoel.hoel_id
    FROM  homepage_element hoel
         ,homepage_element_value hoev
    WHERE hoel.hoel_id = hoev.hoel_id
    AND   hoev.element_value LIKE '%Empty%'
    AND   caco_utilities.get_syus_id <> caco_utilities.get_system_user
    AND   NOT EXISTS ( SELECT NULL
                       FROM   user_homepage usho
                       WHERE  usho.usho_id = TO_CHAR(caco_utilities.get_syus_id)||hoel.hoel_id);
    --
  END ins_usho;
  --
  --
  FUNCTION daily_position ( p_gas_day IN DATE DEFAULT g_curr_day
                          ) RETURN svg.t_pie_tab IS
    --
    l_pie_tab svg.t_pie_tab;
    --
  BEGIN
    --
    -- http://unix143/pls/lngimp_demo/lihp_home_page.daily_position
    --
    l_pie_tab(1).l_descr := 'Gas Day '||TO_CHAR(p_gas_day, 'DD/MM/YYYY');
    l_pie_tab(2).l_descr := 'Hours Passed';
    l_pie_tab(3).l_descr := 'Hours Remaining';
    --
    l_pie_tab(1).l_quantity := cout_dates.get_dst_hours(p_gas_day => p_gas_day);
    l_pie_tab(2).l_quantity := ROUND((SYSDATE-(cout_dates.convert_gas_day_to_date(cout_dates.convert_date_to_gas_day(SYSDATE))))*24,2);
    l_pie_tab(3).l_quantity := l_pie_tab(1).l_quantity - l_pie_tab(2).l_quantity;
    --
    l_pie_tab(1).l_units := 'hrs';
    --
    RETURN l_pie_tab;
    --
  END daily_position;
  --
  --
  --
  --
  --
  PROCEDURE hotlinks IS
    --
    l_syus_id  system_users.syus_id%TYPE := caco_utilities.get_syus_id;
    l_dad_path VARCHAR2(200) := lower(owa_util.get_cgi_env('REQUEST_PROTOCOL') || '://' ||
                                      owa_util.get_cgi_env('HTTP_HOST') ||
                                      owa_util.get_cgi_env('SCRIPT_NAME') || '/');
    l_output_line VARCHAR2(4000);
    --
  BEGIN
    --
    htp.p('<div id="hotlinks">');
    htp.p('<h2>'||caco_utilities.get_module_text(2007)||'</h2>');
    htp.p('<a href="hotlw010$.startup">['||caco_utilities.get_module_text(2008)||']</a>');
    htp.p('<ul>');
    --
    IF l_syus_id <> caco_utilities.get_system_user THEN
      --
      FOR i IN ( SELECT usop.display_text
                       ,syop.module_name
                 FROM   user_options   usop
                       ,system_options syop
                 WHERE usop.syop_id = syop.syop_id
                 AND   usop.syus_id = caco_utilities.get_syus_id
                 ORDER BY usop.display_seq ) LOOP
        --
        l_output_line := l_output_line ||'<li><a href="' || l_dad_path || i.module_name || '">' || i.display_text || '</a></li>';
        --
      END LOOP;
      --
      l_output_line := l_output_line||'<li><a href="#"></a></li>';
      --
      htp.p(l_output_line);
      --
    ELSE
      --
      htp.p('<li>Not Logged In</li>');
      --
    END IF;
    --
    htp.p('</ul>');
    htp.p('</div>');
    --
  END hotlinks;
  --
  --
  --
  PROCEDURE bulletins IS
    --
    l_syus_id  system_users.syus_id%TYPE := caco_utilities.get_syus_id;
    l_dad_path VARCHAR2(200) := lower(owa_util.get_cgi_env('REQUEST_PROTOCOL') || '://' ||
                                      owa_util.get_cgi_env('HTTP_HOST') ||
                                      owa_util.get_cgi_env('SCRIPT_NAME') || '/');
    --
    l_output_line VARCHAR2(4000);
    --
  BEGIN
    --
    htp.p('<div id="bulletin">');
    htp.p('<h2>'||caco_utilities.get_module_text(2009)||'</h2>');
    htp.p('<a href="amfrw020$.startup">['||caco_utilities.get_module_text(2010)||']</a>');
    htp.p('<ul>');
    --
    IF l_syus_id <> caco_utilities.get_system_user THEN
      --
      FOR i IN ( SELECT bbme.subject
                       ,bbme.bubm_id
                       ,mere.message_read
                 FROM   bulletin_board_messages bbme
                       ,message_recipient mere
                 WHERE  bbme.bubm_id = mere.bubm_id
                 AND    mere.syus_id = l_syus_id
                 AND    SYSDATE BETWEEN bbme.active_from AND NVL(bbme.active_to, SYSDATE)
                 ORDER BY mere.created_on DESC ) LOOP
        --
        l_output_line := l_output_line || '<li class="'||i.message_read||'"><a href="' || l_dad_path || 'amfrw030$bbme.startup?P_BUBM_ID='||i.bubm_id||'&P_4=20&P_5=63' || '">' || i.subject || '</a></li>';
        --
      END LOOP;
      --
      l_output_line := l_output_line||'<li><a href="#"></a></li>';
      --
      htp.p(l_output_line);
      --
    ELSE
      --
      htp.p('<li>Not Logged In</li>');
      --
    END IF;
    --
    htp.p('</ul>');
    htp.p('</div>');
    --
  END bulletins;
  --
  --
  --
  PROCEDURE get_usho ( p_hoel_name   IN      homepage_element.element_name%TYPE
                     , p_description     OUT homepage_element_value.element_value%TYPE
                     , p_procedure       OUT homepage_element_value.element_value%TYPE ) IS
  BEGIN
    --
    BEGIN
      SELECT hoev.element_value
            ,hoev.element_procedure
      INTO   p_description
            ,p_procedure
      FROM   user_homepage          usho
            ,homepage_element       hoel
            ,homepage_element_value hoev
      WHERE hoel.hoel_id      = usho.hoel_id
      AND   hoev.hoev_id      = usho.hoev_id
      AND   hoev.hoel_id      = usho.hoel_id
      AND   UPPER(hoel.element_name)  = UPPER(p_hoel_name)
      AND   usho.syus_id = caco_utilities.get_syus_id;
    EXCEPTION
      WHEN OTHERS THEN
        NULL;
    END;
    --
  END;
  --
  PROCEDURE homepage_barchart IS
    l_description VARCHAR2(200);
    l_procedure   VARCHAR2(200);
  BEGIN
    --
    ins_usho;
    --
    get_usho('Barchart'
            ,l_description
            ,l_procedure
            );
    --
    htp.p('<div id="barchart">');
    htp.p('<h1>'||l_description||'</h1>');
    --
    IF l_procedure IS NOT NULL THEN
      --
      htp.p('<!--[if IE]>');
--      htp.p('  <embed src="'||l_procedure||'" type="image/svg+xml" wmode="transparent" style="z-index: 0" wmode="transparent" name="Barchart" width="100%" height="100%" pluginspage="http://www.adobe.com/svg/viewer/install/"></embed>');
      htp.p('  <embed src="'||l_procedure||'" type="image/svg+xml" wmode="transparent" style="z-index: 0" wmode="transparent" name="Barchart" width="100%" height="100%"></embed>');
      htp.p('<![endif]-->');
      htp.p('<![if !IE]>');
      htp.p('  <object data="'||l_procedure||'" type="image/svg+xml" width="100%" height="100%">');
      htp.p('    <p>Please download <a href="http://www.mozilla.com/firefox/">Firefox 1.5</a></p>');
      htp.p('  </object>');
      htp.p('<![endif]>');
      --
    END IF;
    --
    htp.p('</div>');
    --
  END homepage_barchart;
  --
  PROCEDURE homepage_piechart IS
    l_description VARCHAR2(200);
    l_procedure   VARCHAR2(200);
  BEGIN
    --
    ins_usho;
    --
    get_usho('Piechart'
            ,l_description
            , l_procedure
            );
    --
    htp.p('<div id="piechart">');
    htp.p('<h1>'||l_description||'</h1>');
    --
    IF l_procedure IS NOT NULL THEN
      --
      l_procedure := 'svg.piechart3';
      --
      htp.p('<!--[if IE]>');
      htp.p('  <embed src="'||l_procedure||'" type="image/svg+xml" wmode="transparent" style="z-index: 0" wmode="transparent" name="Piechart" width="100%" height="100%" ></embed>');
      htp.p('<![endif]-->');
      htp.p('<![if !IE]>');
      htp.p('  <object data="'||l_procedure||'" type="image/svg+xml" width="100%" height="100%">');
      htp.p('    <p>Please download <a href="http://www.mozilla.com/firefox/">Firefox 1.5</a></p>');
      htp.p('  </object>');
      htp.p('<![endif]>');
      --
    END IF;
    --
    htp.p('</div>');
    --
  END homepage_piechart;
  --
  PROCEDURE homepage_table IS
    l_description VARCHAR2(200);
    l_procedure   VARCHAR2(200);
    l_sql         VARCHAR2(1000);
  BEGIN
    --
    ins_usho;
    --
    get_usho( 'Table'
            , l_description
            , l_procedure
            );
    --
    --htp.p('<div id="nom_ship" style="overflow-x: hidden; overflow-y: auto;">');
    htp.p('<div id="middletable">');
    --
    IF l_procedure IS NOT NULL THEN
      --
      l_sql := 'BEGIN '|| l_procedure ||
               ' ( TO_DATE('''|| TO_CHAR(lihp_home_page.g_start_date,'DD/MM/YYYY HH24:MI:SS') ||''',''DD/MM/YYYY HH24:MI:SS'') ,'||
               '   TO_DATE('''|| TO_CHAR(lihp_home_page.g_end_date,'DD/MM/YYYY HH24:MI:SS') ||''',''DD/MM/YYYY HH24:MI:SS'') ,'||
               ' '''||l_description||'''); END;';
      BEGIN
        EXECUTE IMMEDIATE l_sql;
      EXCEPTION
        WHEN OTHERS THEN
          htp.p(SQLERRM);
          htp.p(l_sql);
      END;
      --
    ELSE
      --
      htp.print('<table><caption>'||l_description||'</caption><tr><td/></tr></table>');
      --
    END IF;
    --
    htp.p('</div>');
    --
  END homepage_table;
  --
  PROCEDURE edit_homepage IS
  BEGIN
    --
    --
    --
    htp.p('<div id="edit">');
    htp.p('<a href="hopgw010$.startup">[edit homepage]</a>');
    htp.p('</div>');
    --
  END edit_homepage;
  --this displays an image to fill out the homepage whilst we have
  --no graphs etc.
  PROCEDURE homepage_showimage IS
  BEGIN
    --
    --display our wonderful wheelie type valve knobs
    --
    htp.p('<img id="homepageimage" src="docs/energiatermeles_audi39.jpg" alt="Valve Handles"/>');
    --
  END homepage_showimage;
  --
  --
  --
  FUNCTION about RETURN VARCHAR2 IS
  BEGIN
    RETURN '$Header: $';
  END about;
BEGIN
  -- Initialization
  NULL;
END lihp_home_page;
/