git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@50874 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
andrew.gilmore
324
Data/BulkLoad/EFT/Nominations/plsql/lihp_home_page.bdy
Normal file
324
Data/BulkLoad/EFT/Nominations/plsql/lihp_home_page.bdy
Normal file
@@ -0,0 +1,324 @@
|
||||
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
Block a user