Error installing support OLL packaged Application objects

Error on line 274: PLS-00201: identifier 'UTL_TCP' must be declared

create or replace package body eba_oll_log
as

g_start_time    number;


procedure log_init
is
begin
    g_start_time := dbms_utility.get_time;
end log_init;



procedure log_page_view
is
begin

   insert into eba_oll_page_views
      ( APEX_USER,
        PAGE_ID,
        PAGE_NAME,
        VIEW_DATE,
        TS, 
        ELAPSED_TIME,
        IP_ADDRESS,
        AGENT,
        APEX_SESSION_ID,
        CONTENT_ID,
        CONTENT_TITLE )
   values
      ( v('APP_USER'),
        v('APP_PAGE_ID'),
        wwv_flow.g_step_title,
        trunc(sysdate,'DD'),
        systimestamp, 
        (dbms_utility.get_time-g_start_time)*(.01), 
        owa_util.get_cgi_env('REMOTE_ADDR'), 
        owa_util.get_cgi_env('HTTP_USER_AGENT'), 
        v('APP_SESSION'),
        case when v('APP_PAGE_ID') = 24
             then v('P24_CONTENT_ID')
             else null
             end,
        case when v('APP_PAGE_ID') = 24
             then v('P24_CONTENT_TITLE')
             else null
             end );

   if v('APP_PAGE_ID') = 24 then

      insert into eba_oll_content_views
         ( APEX_USER,
           VIEW_DATE,
           TS, 
           IP_ADDRESS,
           AGENT,
           APEX_SESSION_ID,
           CONTENT_ID,
           CONTENT_TITLE,
           NOTE )
      values
         ( v('APP_USER'),
           trunc(sysdate,'DD'),
           systimestamp, 
           owa_util.get_cgi_env('REMOTE_ADDR'), 
           owa_util.get_cgi_env('HTTP_USER_AGENT'), 
           v('APP_SESSION'),
           v('P24_CONTENT_ID'),
           v('P24_CONTENT_TITLE'),
           'Viewed' );

   end if;

   commit;

end log_page_view;



procedure log_content_click
is
begin

   insert into eba_oll_content_views
      ( APEX_USER,
        VIEW_DATE,
        TS, 
        IP_ADDRESS,
        AGENT,
        APEX_SESSION_ID,
        CONTENT_ID,
        CONTENT_TITLE,
        NOTE )
   values
      ( v('APP_USER'),
        trunc(sysdate,'DD'),
        systimestamp, 
        owa_util.get_cgi_env('REMOTE_ADDR'), 
        owa_util.get_cgi_env('HTTP_USER_AGENT'), 
        v('APP_SESSION'),
        v('P24_CONTENT_ID'),
        v('P24_CONTENT_TITLE'),
        'Launched' );

   commit;

end log_content_click;


end eba_oll_log;
/


create or replace package body eba_oll_api
as


function gen_id 
   return number
is
   l_id  number;
begin
   select to_number(sys_guid(), 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX')
     into l_id
     from dual;

   return l_id;
end gen_id;


function eba_oll_tags_cleaner (
    p_tags  in varchar2,
    p_case  in varchar2 default 'U' ) return varchar2
is
    type tags is table of varchar2(255) index by varchar2(255);
    l_tags_a        tags;
    l_tag           varchar2(255);
    l_tags          apex_application_global.vc_arr2;
    l_tags_string   varchar2(32767);
    i               integer;
begin

    l_tags := apex_util.string_to_table(p_tags,',');

    for i in 1..l_tags.count loop
        --remove all whitespace, including tabs, spaces, line feeds and carraige returns with a single space
        l_tag := substr(trim(regexp_replace(l_tags(i),'[[:space:]]{1,}',' ')),1,255);

        if l_tag is not null and l_tag != ' ' then
            if p_case = 'U' then
                l_tag := upper(l_tag);
            elsif p_case = 'L' then
                l_tag := lower(l_tag);
            end if;
            --add it to the associative array, if it is a duplicate, it will just be replaced
            l_tags_a(l_tag) := l_tag;
        end if;
    end loop;

    l_tag := null;

    l_tag := l_tags_a.first;

    while l_tag is not null loop
        l_tags_string := l_tags_string||l_tag;
        if l_tag != l_tags_a.last then
            l_tags_string := l_tags_string||', ';
        end if;
        l_tag := l_tags_a.next(l_tag);
    end loop;

    return substr(l_tags_string,1,4000);

end eba_oll_tags_cleaner;


procedure eba_oll_tag_sync (
    p_new_tags          in varchar2,
    p_old_tags          in varchar2,
    p_content_type      in varchar2,
    p_content_id        in number )
as
    type tags is table of varchar2(255) index by varchar2(255);
    l_new_tags_a    tags;
    l_old_tags_a    tags;
    l_new_tags      apex_application_global.vc_arr2;
    l_old_tags      apex_application_global.vc_arr2;
    l_merge_tags    apex_application_global.vc_arr2;
    l_dummy_tag     varchar2(255);
    i               integer;
begin

    l_old_tags := apex_util.string_to_table(p_old_tags,', ');
    l_new_tags := apex_util.string_to_table(p_new_tags,', ');

    if l_old_tags.count > 0 then --do inserts and deletes

        --build the associative arrays
        for i in 1..l_old_tags.count loop
            l_old_tags_a(l_old_tags(i)) := l_old_tags(i);
        end loop;

        for i in 1..l_new_tags.count loop
            l_new_tags_a(l_new_tags(i)) := l_new_tags(i);
        end loop;

        --do the inserts
        for i in 1..l_new_tags.count loop
            begin
                l_dummy_tag := l_old_tags_a(l_new_tags(i));
            exception when no_data_found then
                insert into eba_oll_tags (tag, content_id, content_type )
                    values (l_new_tags(i), p_content_id, p_content_type );
                l_merge_tags(l_merge_tags.count + 1) := l_new_tags(i);
            end;
        end loop;

        --do the deletes
        for i in 1..l_old_tags.count loop
            begin
                l_dummy_tag := l_new_tags_a(l_old_tags(i));
            exception when no_data_found then
                delete from eba_oll_tags where content_id = p_content_id and tag = l_old_tags(i);
                l_merge_tags(l_merge_tags.count + 1) := l_old_tags(i);
            end;
        end loop;
    else --just do inserts
        for i in 1..l_new_tags.count loop
            insert into eba_oll_tags (tag, content_id, content_type )
                values (l_new_tags(i), p_content_id, p_content_type );
            l_merge_tags(l_merge_tags.count + 1) := l_new_tags(i);
        end loop;
    end if;

    for i in 1..l_merge_tags.count loop
        merge into eba_oll_tags_type_sum s
        using (select count(*) tag_count
                 from eba_oll_tags
                where tag = l_merge_tags(i) and content_type = p_content_type ) t
           on (s.tag = l_merge_tags(i) and s.content_type = p_content_type )
         when not matched then insert (tag, content_type, tag_count)
                               values (l_merge_tags(i), p_content_type, t.tag_count)
         when matched then update set s.tag_count = t.tag_count;

        merge into eba_oll_tags_sum s
        using (select sum(tag_count) tag_count
                 from eba_oll_tags_type_sum
                where tag = l_merge_tags(i) ) t
           on (s.tag = l_merge_tags(i) )
         when not matched then insert (tag, tag_count)
                               values (l_merge_tags(i), t.tag_count)
         when matched then update set s.tag_count = t.tag_count;
    end loop;

end eba_oll_tag_sync;

procedure render_tag_cloud (
   p_selection          in varchar2 default null,
   p_app_id             in number,
   p_session_id         in number,
   p_min_nbr_tags       in number default 1,
   p_max                in number default 100,
   p_limit              in number default 10000,
   p_link_to_page       in varchar2 default '2',
   p_tag_item_filter    in varchar2 default 'P2_TAGS',
   p_clear_cache        in varchar2 default '2,CIR,RIR',
   p_more_page          in varchar2 default '62' )
as
   l_printed_records    number := 0;
   l_available_records  number := 20;
   l_max                number;
   l_min                number;

   l_class_size         number;
   l_class              varchar2(30);

   type l_tagtype is table of varchar2(2000);
   l_tags l_tagtype;

   type l_numtype is table of number;
   l_cnts l_numtype;

   l_size number;
   l_total number :=0;

   l_buffer varchar2(32676);   

   CURSOR c_all_tags
   IS
       select tag, c from (
       select t.tag, count(*) c
         from eba_oll_content c,
              eba_oll_tags t
        where c.content_id = t.content_id
          and c.display_yn = 'Y'
          and (p_selection is null or
               (p_selection is not null and
               (   (substr(p_selection,1,1) = 'R' and
                    substr(p_selection,2) in (select release_id
                                                from eba_oll_content_products cp
                                               where cp.content_id = c.content_id))
                or (substr(p_selection,1,1) = 'C' and
                    substr(p_selection,2) in (select product_id
                                                from eba_oll_content_products cp
                                               where cp.content_id = c.content_id))
                or (substr(p_selection,1,1) = 'P' and
                    (substr(p_selection,2) in (select product_id
                                                 from eba_oll_content_products cp
                                                where cp.content_id = c.content_id) or
                     substr(p_selection,2) in (select p.parent_product_id
                                                 from eba_oll_content_products cp,
                                                      eba_oll_products p
                                                where cp.content_id = c.content_id
                                                  and cp.product_id = p.product_id)))
                or (substr(p_selection,1,1) = 'G' and
                    (substr(p_selection,2) in (select pg.group_id
                                                 from eba_oll_product_groupings pg,
                                                      eba_oll_content_products cp
                                                where pg.product_id = cp.product_id
                                                  and cp.content_id = c.content_id) or
                     substr(p_selection,2) in (select pg.group_id
                                                 from eba_oll_product_groupings pg,
                                                      eba_oll_products p,
                                                      eba_oll_content_products cp
                                                where pg.product_id = p.parent_product_id
                                                  and p.product_id = cp.product_id
                                                  and cp.content_id = c.content_id)))
               )))
        group by tag
       ) x where rownum < p_limit
             and c >= p_min_nbr_tags
        order by upper(tag) ;

begin

   -------------------------
   -- Fetch tags into arrays
   --
   open c_all_tags;
      loop
          fetch c_all_tags bulk collect into l_tags,l_cnts limit p_limit;
          exit;
      end loop;
   close c_all_tags;

   l_available_records := l_tags.count;


   -----------------------------------------------
   -- Determine total count and maximum tag counts
   --
   l_max := 0;
   l_min := 1000;
   FOR i in l_cnts.first..l_cnts.last loop
      l_total := l_total + l_cnts(i);
      if l_cnts(i) > l_max then
         l_max := l_cnts(i);
      end if;
      if l_cnts(i) < l_min then
         l_min := l_cnts(i);
      end if;
   end loop;
   if l_max = 0 then l_max := 1; end if;


   l_class_size := round((l_max-l_min)/6);

   ------------------------
   -- Generate tag cloud --
   --
   
   sys.htp.prn('<div class="tagCloud"><ul>');

   for i in l_tags.first..l_tags.last loop
       l_printed_records := l_printed_records + 1;

       if l_cnts(i) < l_min + l_class_size then
          l_class := 'size1';
       elsif l_cnts(i) < l_min + (l_class_size*2) then
          l_class := 'size2';
       elsif l_cnts(i) < l_min + (l_class_size*3) then
          l_class := 'size3';
       elsif l_cnts(i) < l_min + (l_class_size*4) then
          l_class := 'size4';
       elsif l_cnts(i) < l_min + (l_class_size*5) then
          l_class := 'size5';
       else l_class := 'size6';
       end if;      
       
       l_buffer := '<li><a class="'||l_class||'" href="'||
              'f?p='||p_app_id||':'||p_link_to_page||':'||p_session_id||':::'||p_clear_cache||':'||
              p_tag_item_filter||':'||htf.escape_sc(l_tags(i))||'">'||
              htf.escape_sc(l_tags(i)) || '<span>' || l_cnts(i) || '</span></a></li>';

       sys.htp.prn(l_buffer);

       l_buffer := '';

       if  l_printed_records > p_max then
           exit;
       end if;
   end loop;

   sys.htp.prn('</ul></div>');


   -- print if there's more
   if l_tags.count - l_printed_records != 0 then
           htp.prn('<p><a href="f?p='||p_app_id||':'||htf.escape_sc(p_more_page)||
                 ':'||p_session_id||':::'||htf.escape_sc(p_more_page)||'">View all tags</a></p>');
   end if;


   exception when others then
      sys.htp.prn('<p>No tags found.</p>');
end render_tag_cloud; 


procedure email_when_feedback (
   p_feedback_id  in  number,
   p_host_url     in  varchar2,
   p_app_id       in  number )
is
   l_body       clob;
   l_body_html  clob;
begin

for c1 in (
   select f.feedback_comment, f.feedback_by,
          c.title, nvl(ct.feedback_contacts,'[email protected]') email
     from eba_oll_content_feedback f,
          eba_oll_content c,
          eba_oll_team ct
    where f.id = p_feedback_id
      and f.content_id = c.content_id
      and c.team_id = ct.team_id (+) )
loop

   l_body := 'You have received feedback for a piece of content you own in the Oracle Learning Library (OLL) Application.

Content: '|| c1.title || utl_tcp.crlf || '
Feedback: '|| c1.feedback_comment || utl_tcp.crlf || '
Left by: '|| lower(c1.feedback_by) ||'

You can respond via the OLL Application, '||p_host_url||'f?p='||p_app_id||':47:::NO::P47_ID:' || p_feedback_id || '.';


   l_body_html := '<div style="border: 1px solid #DDD; background-color: #F8F8F8; width: 460px; margin: 0 auto; -moz-border-radius: 10px; -webkit-border-radius: 10px; padding: 20px;">
<p style="font: bold 12px/16px Arial, sans-serif; margin: 0 0 10px 0; padding: 0;">
You have received feedback for a piece of content you own in the Oracle Learning Library (OLL) Application.
</p>
<table style="width: 100%;" cellspacing="0" cellpadding="0" border="0">
<tr>' || utl_tcp.crlf || '
<td style="font: bold 12px/16px Arial, sans-serif; color: #666; padding: 0 10px 10px 0; vertical-align: top;">Content</td>
<td style="font: normal 12px/16px Arial, sans-serif; padding: 0 10px 10px 0; vertical-align: top;"><a href="#" style="color: #000">'||c1.title||'</a></td>
</tr>
<tr>' || utl_tcp.crlf || '
<td style="font: bold 12px/16px Arial, sans-serif; color: #666; padding: 0 10px 10px 0; vertical-align: top;">Feedback</td>
<td style="font: normal 12px/16px Arial, sans-serif; padding: 0 10px 10px 0; vertical-align: top;">'||replace(c1.feedback_comment,CHR(10),'<br/>')||'</td>
</tr>
<tr>' || utl_tcp.crlf || '
<td style="font: bold 12px/16px Arial, sans-serif; color: #666; padding: 0 10px 10px 0; vertical-align: top;">Left by</td>
<td style="font: bold 12px/16px Arial, sans-serif; padding: 0 10px 10px 0; vertical-align: top;">'||lower(c1.feedback_by)||'</td>
</tr>
<tr>' || utl_tcp.crlf || '
<td colspan="2" style="text-align: center; font: normal 12px/16px Arial, sans-serif; padding: 0 10px 10px 0; vertical-align: top;">
<a href="'||p_host_url||'f?p='||p_app_id||':47:::NO::P47_ID:' || p_feedback_id ||'" style="display: block; padding: 10px; background-color: #EEE; font: bold 16px/16px Arial, sans-serif; color: #444">Respond to this Feedback</a>
</td>
</tr>
</table>
</div>';

   apex_mail.send (
      p_to        => c1.email,
      p_from      => '[email protected]',
      p_subj      => 'OLL - New Feedback for your team',
      p_body      => l_body,
      p_body_html => l_body_html );

end loop;

end email_when_feedback;



procedure email_when_response (
   p_feedback_id  in  number,
   p_host_url     in  varchar2,
   p_app_id       in  number )
is
   l_body       clob;
   l_body_html  clob;
begin

for c1 in (
   select f.feedback_comment, f.feedback_by, f.response, c.title
     from eba_oll_content_feedback f,
          eba_oll_content c
    where f.id = p_feedback_id
      and f.content_id = c.content_id )
loop

   l_body := 'You have received a response to your feedback left in the Oracle Learning Library (OLL) Application.

Content: '|| c1.title || '
Feedback: '|| c1.feedback_comment || '
Response: '|| c1.response || '

You can also view this response via the OLL Application, '||p_host_url||'f?p='||p_app_id||':60:::NO::IR_ID:' || p_feedback_id || '.';


      l_body_html := '<div style="border: 1px solid #DDD; background-color: #F8F8F8; width: 460px; margin: 0 auto; -moz-border-radius: 10px; -webkit-border-radius: 10px; padding: 20px;">
<p style="font: bold 12px/16px Arial, sans-serif; margin: 0 0 10px 0; padding: 0;">
You have received a response to your feedback left in the Oracle Learning Library (OLL) Application.
</p>
<table style="width: 100%;" cellspacing="0" cellpadding="0" border="0">
<tr>' || utl_tcp.crlf || '
<td style="font: bold 12px/16px Arial, sans-serif; color: #666; padding: 0 10px 10px 0; vertical-align: top;">Content</td>
<td style="font: normal 12px/16px Arial, sans-serif; padding: 0 10px 10px 0; vertical-align: top;"><a href="#" style="color: #000">'||c1.title||'</a></td>
</tr>
<tr>' || utl_tcp.crlf || '
<td style="font: bold 12px/16px Arial, sans-serif; color: #666; padding: 0 10px 10px 0; vertical-align: top;">Feedback</td>
<td style="font: normal 12px/16px Arial, sans-serif; padding: 0 10px 10px 0; vertical-align: top;">'||replace(c1.feedback_comment,CHR(10),'<br/>')||'</td>
</tr>
<tr>' || utl_tcp.crlf || '
<td style="font: bold 12px/16px Arial, sans-serif; color: #666; padding: 0 10px 10px 0; vertical-align: top;">Response</td>
<td style="font: bold 12px/16px Arial, sans-serif; padding: 0 10px 10px 0; vertical-align: top;">'||replace(c1.response,CHR(10),'<br/>')||'</td>
</tr>
<tr>' || utl_tcp.crlf || '
<td colspan="2" style="text-align: center; font: normal 12px/16px Arial, sans-serif; padding: 0 10px 10px 0; vertical-align: top;">
<a href="'||p_host_url||'f?p='||p_app_id||':60:::NO::IR_ID:' || p_feedback_id ||'" style="display: block; padding: 10px; background-color: #EEE; font: bold 16px/16px Arial, sans-serif; color: #444">View Response in OLL Application</a>
</td>
</tr>
</table>
</div>';

   apex_mail.send (
      p_to        => c1.feedback_by,
      p_from      => '[email protected]',
      p_subj      => 'Oracle Learning Library - Response to your Feedback',
      p_body      => l_body,
      p_body_html => l_body_html ); 

end loop;

end email_when_response;



end eba_oll_api;
/

desc utl_tcp

grant execute on utl_tcp to [your_schema_name]