Conditions of licence for packaged applications

function setNotesToolTip() {
     this.xOffset = 0; // x distance from mouse
     this.yOffset = 10; // y distance from mouse
jQuery("div.short-notes").hover(
     function(e) {
          var insideText = jQuery("div.long-notes",this).html()
          this.top = (e.pageY + yOffset);
          this.left = (e.pageX + xOffset);
          $('body').append('
' + insideText + '
' );
          $('div#notes-tooltip').css("top", this.top+"px").css("left", this.left+"px").delay(500).fadeIn("fast");
     },
     function() {
          jQuery("div#notes-tooltip").fadeOut("false").remove();
     }
).mousemove(
     function(e) {
          this.top = (e.pageY + yOffset);
          this.left = (e.pageX + xOffset);
          jQuery("div#notes-tooltip").css("top", this.top+"px").css("left", this.left+"px");
     }
)
}

<style>
div#notes-tooltip {
    background-color: #F8F8F8;
    border: 1px solid #AAAAAA;
    border-radius: 3px 3px 3px 3px;
    box-shadow: 0 4px 8px rgba(0, 0, 0, 0.25);
    position: absolute;
    width: 420px;
    padding: 4px;
}
</style>

Kind regards
Hari

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;
/

Fateh,

It would seem that your schema of Apex/user doesn't have access to, or otherwise know the utl_tcp Oracle package. Try running it in your workshop of Apex SQL > SQL commands.

desc utl_tcp

If you do not get a description of the utl_tcp package then you will know that your Apex selected scheme lacks the permissions to run this package. Assuming that this is the case, then you will need someone with the correct privileges to run:

grant execute on utl_tcp to [your_schema_name]

Hope that helps.

Earl