andy/mip
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
Files
0e9ca75d775112a4ff5f8f1bf644b4824092d31f
mip/Data/BulkLoad/EFT/Nominations/plsql/lihp_home_page.bdy

325 lines
10 KiB
Plaintext
Raw Blame History

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;
/
Reference in New Issue View Git Blame Copy Permalink