CREATE OR REPLACE package body html_util_pkg
as
/*
Purpose: Package contains HTML utilities
Remarks:
Who Date Description
------ ---------- -------------------------------------
MBR 03.12.2009 Created
*/
function get_html_with_line_breaks (p_html in varchar2) return varchar2
as
l_returnvalue string_util_pkg.t_max_pl_varchar2;
begin
/*
Purpose: replace normal line breaks with html line breaks
Remarks:
Who Date Description
------ ---------- --------------------------------
MBR 10.01.2009 Created
*/
l_returnvalue := replace(p_html, chr(10), '
');
return l_returnvalue;
end get_html_with_line_breaks;
function add_hyperlinks (p_text in varchar2,
p_class in varchar2 := null) return varchar2
as
l_returnvalue string_util_pkg.t_max_pl_varchar2;
begin
/*
Purpose: make URLs in text into hyperlinks
Remarks:
Who Date Description
------ ---------- --------------------------------
MBR 23.01.2011 Created
*/
l_returnvalue := regexp_replace(p_text, 'http://([[:alnum:]|.]+)', '\1');
return l_returnvalue;
end add_hyperlinks;
function add_hyperlinks (p_text in clob,
p_class in varchar2 := null) return clob
as
l_returnvalue clob;
begin
/*
Purpose: make URLs in text into hyperlinks
Remarks:
Who Date Description
------ ---------- --------------------------------
MBR 23.01.2011 Created
*/
l_returnvalue := regexp_replace(p_text, 'http://([[:alnum:]|.]+)', '\1');
return l_returnvalue;
end add_hyperlinks;
end html_util_pkg;
/