@tangelo/tangelo-configuration-toolkit 1.6.1 → 1.8.0-beta.2

package/build/project/tangelo-default-implementation/src/database/tdi/plsql/tdi_lookup.pkb

@@ -1,619 +0,0 @@
-create or replace package body tdi_lookup
-is
-
-
-PCK_NAME    constant varchar2(20) := 'tdi_lookup';
-LOOKUP_DIR  constant varchar2(50) := 'tdi/lookup/';
-
-
-function create_lookup
-( p_xml   in xmltype
-, p_xsl   in varchar2 default null
-, p_dir   in varchar2 default null
-)
-return tanapi.pls_result
-is
-  l_xsl     varchar2(100)      := p_xsl;
-  l_dir     varchar2(100)      := p_dir;
-  l_result  tanapi.pls_result;
-begin
-  if l_xsl is null then
-    l_xsl := 'default.xsl';
-  end if;
-  if l_dir is null then
-    l_dir := LOOKUP_DIR;
-  end if;
-  l_result := new tanapi.pls_result(p_xml.getclobval(),l_dir || l_xsl,'text/html');
-  l_result.add_xslt_param('lookupDir','../resources/cms/'||l_dir);
-  --l_result := new tanapi.pls_result(p_xml);
-  return l_result;
-
-exception
-  when others then
-    return new tanapi.pls_result(xmltype('<error>'||sqlerrm||'</error>'));
-end create_lookup;
-
-
-function sections_tree
-( p_document_id     in number
-)
-return tanapi.pls_result
-is
-  l_doc_version    tanapi.document_versions%rowtype;
-  l_numbering_xml  xmltype;
-  l_childs_xml     xmltype;
-  l_values_xml     xmltype;
-  l_lookup_xml     xmltype;
-
-  function get_nodes
-  ( p_parent_id in number
-  )
-  return xmltype
-  is
-    l_xml  xmltype;
-  begin
-    for r in (
-      select   n.id, n.section_id, n.name
-      from     tanapi.nodes n
-      where    n.parent_id = p_parent_id
-      order by n.child_seq
-    )
-    loop
-      l_childs_xml := get_nodes(r.id);
-
-      select xmlconcat
-             ( l_xml
-             , xmlelement("node"
-               , xmlattributes
-                 ( r.id         as "id"
-                 , r.section_id as "sectionId"
-                 , r.name       as "name"
-                 )
-               , l_childs_xml
-               )
-             )
-      into   l_xml
-      from   dual
-      ;
-    end loop;
-
-    return l_xml;
-  end;
-
-begin
-  l_doc_version   := tanapi.obj_select.document_version_for_document(p_document_id, 'L');
-  l_numbering_xml := tdi_numbering.number_xml(l_doc_version.root_node_id, p_full_branche => 'Y');
-  l_childs_xml    := get_nodes(l_doc_version.root_node_id);
-
-  select xmlelement("toc"
-         , xmlelement("node"
-           , xmlattributes(n.section_id as "sectionId", n.name as "name")
-           , l_childs_xml
-           )
-         )
-  into   l_values_xml
-  from   tanapi.nodes n
-  where  n.id = l_doc_version.root_node_id
-  ;
-
-  select xmlquery
-         ( 'copy $tmp := .
-            modify (
-              for $node in $tmp//node
-              return
-                insert node $xn//node[@id=$node/@id]/@number into $node
-            )
-            return $tmp
-           '
-           passing l_values_xml, l_numbering_xml as "xn"
-           returning content
-         ) xml
-  into   l_values_xml
-  from   dual
-  ;
-
-  select xmlelement("lookup"
-         , l_values_xml
-         )
-  into   l_lookup_xml
-  from   dual
-  ;
-
-  return create_lookup(l_lookup_xml,'toc.xsl');
-
-exception
-  when others then
-    return create_lookup(xmltype('<lookup><error/></lookup>'),'toc.xsl');
-end sections_tree;
-
-
-function documents
-( p_search         in varchar2 default null
-, p_document_type  in number   default null
-, p_restrict_to_dt in varchar2 default 'false'
-)
-return tanapi.pls_result
-is
-  cursor c_values
-  is
-    select xmlelement("values"
-           , xmlagg
-             ( xmlelement("row"
-               , xmlattributes(d.id as "id")
-               , xmlforest
-                 ( n.name        as "title"
-                 , d.description as "description"
-                 , nvl(dvp.published_ind,'N') as "published"
-                 )
-               )
-               order by lower(n.name)
-             )
-           )
-    from              tanapi.documents             d
-           inner join tanapi.document_versions     dvl on dvl.document_id = d.id and dvl.latest_ind    = 'Y'
-           left  join tanapi.document_versions     dvp on dvp.document_id = d.id and dvp.published_ind = 'Y'
-           inner join tanapi.nodes                 n   on n.id = nvl(dvp.root_node_id,dvl.root_node_id)
-    where  d.date_time_deleted is null
-      and  (d.document_type_id = p_document_type or p_document_type is null)
-      and  (   lower(n.name)        like '%'||lower(p_search)||'%'
-            or lower(d.description) like '%'||lower(p_search)||'%'
-           )
-      and  exists (select 1 from tancms.txd_auth_docs_cm_priv ad where ad.doc_id = d.id)
-  ;
-
-  cursor c_lookup(b_values_xml in xmltype)
-  is
-    select xmlelement("lookup"
-           , xmlelement("form"
-             , xmlattributes(PCK_NAME||'.documents' as "prcName")
-             , xmlelement("input"
-               , xmlattributes
-                 ( 'hidden'           as "type"
-                 , 'p_restrict_to_dt' as "name"
-                 , p_restrict_to_dt   as "value"
-                 )
-               )
-             , xmlelement("input"
-               , xmlattributes
-                 ( 'text'     as "type"
-                 , 'p_search' as "name"
-                 , 'Search'   as "placeholder"
-                 , 'Zoeken'   as "placeholder-nl"
-                 , p_search   as "value"
-                 )
-               )
-             , xmlelement("select"
-               , xmlattributes('p_document_type' as "name", nullif(p_restrict_to_dt,'false') as "disabled")
-               , xmlelement("option",null)
-               , xmlagg
-                 ( xmlelement("option"
-                   , xmlattributes(dt.id as "value", decode(p_document_type,dt.id,'selected') as "selected")
-                   , dt.display_name
-                   )
-                   order by lower(dt.display_name)
-                 )
-               )
-             )
-           , xmlelement("columns"
-             , xmlelement("column"
-               , xmlattributes
-                 ( '40%'   as "width"
-                 , 'Title' as "title"
-                 , 'Titel' as "title-nl"
-                 )
-               )
-             , xmlelement("column"
-               , xmlattributes
-                 ( '40%'          as "width"
-                 , 'Description'  as "title"
-                 , 'Omschrijving' as "title-nl"
-                 )
-               )
-             , xmlelement("column"
-               , xmlattributes
-                 ( '20%'          as "width"
-                 , 'Published'    as "title"
-                 , 'Gepubliceerd' as "title-nl"
-                 )
-               )
-             )
-           , b_values_xml
-           )
-    from   tanapi.document_types dt
-    where  exists (
-             select 1
-             from              tanapi.documents             d
-                    inner join tancms.txd_auth_docs_cm_priv ad on ad.doc_id = d.id
-             where  d.document_type_id = dt.id
-           )
-  ;
-
-  l_values_xml  xmltype;
-  l_lookup_xml  xmltype;
-begin
-  open  c_values;
-  fetch c_values into l_values_xml;
-  close c_values;
-
-  open  c_lookup(l_values_xml);
-  fetch c_lookup into l_lookup_xml;
-  close c_lookup;
-
-  return create_lookup(l_lookup_xml);
-end documents;
-
-
-function news_channels
-( p_search in varchar2 default null
-)
-return tanapi.pls_result
-is
-  cursor c_values
-  is
-    select xmlelement("values"
-           , xmlagg
-             ( xmlelement("row"
-               , xmlattributes(c.id as "id")
-               , xmlforest(c.display_name  as "displayName")
-               ) order by lower(c.display_name)
-             )
-           )
-    from   tancms.tne_channels c
-    where  lower(c.display_name) like '%'||lower(p_search)||'%'
-  ;
-
-  cursor c_lookup(b_values_xml in xmltype)
-  is
-    select xmlelement("lookup"
-           , xmlelement("form"
-             , xmlattributes(PCK_NAME||'.news_channels' as "prcName")
-             , xmlelement("input"
-               , xmlattributes
-                 ( 'text'     as "type"
-                 , 'p_search' as "name"
-                 , 'Search'   as "placeholder"
-                 , 'Zoeken'   as "placeholder-nl"
-                 , p_search   as "value"
-                 )
-               )
-             )
-           , xmlelement("columns"
-             , xmlelement("column"
-               , xmlattributes('Name' as "title", 'Naam' as "title-nl")
-               )
-             )
-           , b_values_xml
-           )
-    from   dual
-  ;
-
-  l_values_xml  xmltype;
-  l_lookup_xml  xmltype;
-begin
-  open  c_values;
-  fetch c_values into l_values_xml;
-  close c_values;
-
-  open  c_lookup(l_values_xml);
-  fetch c_lookup into l_lookup_xml;
-  close c_lookup;
-
-  return create_lookup(l_lookup_xml);
-end news_channels;
-
-
-function file_collections
-( p_search        in varchar2 default null
-)
-return tanapi.pls_result
-is
-  cursor c_values
-  is
-    select xmlelement("values"
-           , xmlagg
-             ( xmlelement("row"
-               , xmlattributes(c.id as "id")
-               , xmlforest(c.display_name as "displayName")
-               ) order by lower(c.display_name)
-             )
-           )
-    from   tanapi.file_collections c
-    where  lower(c.display_name) like '%'||lower(p_search)||'%'
-      and  tanapi.sys_util.is_authorised('FILE_COLLECTION',c.id,'USER') = 1
-  ;
-
-  cursor c_lookup(b_values_xml in xmltype)
-  is
-    select xmlelement("lookup"
-           , xmlelement("form"
-             , xmlattributes(PCK_NAME||'.file_collections' as "prcName")
-             , xmlelement("input"
-               , xmlattributes
-                 ( 'text'     as "type"
-                 , 'p_search' as "name"
-                 , 'Search'   as "placeholder"
-                 , 'Zoeken'   as "placeholder-nl"
-                 , p_search   as "value"
-                 )
-               )
-             )
-           , xmlelement("columns"
-             , xmlelement("column"
-               , xmlattributes('Name' as "title", 'Naam' as "title-nl")
-               )
-             )
-           , b_values_xml
-           )
-    from   dual
-  ;
-
-  l_values_xml  xmltype;
-  l_lookup_xml  xmltype;
-begin
-  open  c_values;
-  fetch c_values into l_values_xml;
-  close c_values;
-
-  open  c_lookup(l_values_xml);
-  fetch c_lookup into l_lookup_xml;
-  close c_lookup;
-
-  return create_lookup(l_lookup_xml);
-end file_collections;
-
-
-function files
-( p_file_type_id  in number   default null
-, p_media_type_id in number   default null
-, p_collection_id in number   default null
-, p_search        in varchar2 default null
-)
-return tanapi.pls_result
-is
-  cursor c_values
-  is
-    select xmlelement("values"
-           , xmlagg
-             ( xmlelement("row"
-               , xmlattributes(f.id as "id")
-               , xmlforest(f.display_name  as "displayName", f.date_uploaded as "dateUploaded")
-               )
-               order by lower(f.display_name)
-             )
-           )
-    from              tanapi.files          f
-           inner join tancms.tdl_file_types ft on ft.id = f.file_type_id
-    where  (f.file_type_id = p_file_type_id or p_file_type_id is null)
-      and  (ft.media_type_id = p_media_type_id or p_media_type_id is null)
-      and  tancms.tdl_api.get_phase(f.status,f.publish_date_time,f.expire_date_time) != 'X'
-      and  lower(f.display_name) like '%'||lower(p_search)||'%'
-      and  (f.collection_id = p_collection_id or p_collection_id is null)
-      and  tanapi.sys_util.is_authorised('FILE_COLLECTION',f.collection_id,'USER') = 1
-  ;
-
-  cursor c_lookup(b_values_xml in xmltype)
-  is
-    select xmlelement("lookup"
-           , xmlelement("form"
-             , xmlattributes(PCK_NAME||'.files' as "prcName")
-             , xmlelement("input"
-               , xmlattributes
-                 ( 'hidden'         as "type"
-                 , 'p_file_type_id' as "name"
-                 , p_file_type_id   as "value"
-                 )
-               )
-             , xmlelement("input"
-               , xmlattributes
-                 ( 'hidden'          as "type"
-                 , 'p_media_type_id' as "name"
-                 , p_media_type_id   as "value"
-                 )
-               )
-             , xmlelement("input"
-               , xmlattributes
-                 ( 'text'     as "type"
-                 , 'p_search' as "name"
-                 , 'Search'   as "placeholder"
-                 , 'Zoeken'   as "placeholder-nl"
-                 , p_search   as "value"
-                 )
-               )
-             , xmlelement("select"
-               , xmlattributes('p_collection_id' as "name")
-               , xmlelement("option",null)
-               , (select xmlagg
-                         ( xmlelement("option"
-                           , xmlattributes(c.id as "value", decode(p_collection_id,c.id,'selected') as "selected")
-                           , c.display_name
-                           )
-                           order by lower(c.display_name)
-                         )
-                  from   tanapi.file_collections c
-                  where  tanapi.sys_util.is_authorised('FILE_COLLECTION',c.id,'USER') = 1
-                 )
-               )
-             )
-           , xmlelement("columns"
-             , xmlelement("column"
-               , xmlattributes('Name' as "title", 'Naam' as "title-nl")
-               )
-             , xmlelement("column"
-               , xmlattributes
-                 ( '90px'  as "width"
-                 , 'Date'  as "title"
-                 , 'Datum' as "title-nl"
-                 )
-               )
-             )
-           , b_values_xml
-           )
-    from   dual
-  ;
-
-  l_values_xml  xmltype;
-  l_lookup_xml  xmltype;
-begin
-  open  c_values;
-  fetch c_values into l_values_xml;
-  close c_values;
-
-  open  c_lookup(l_values_xml);
-  fetch c_lookup into l_lookup_xml;
-  close c_lookup;
-
-  return create_lookup(l_lookup_xml);
-end files;
-
-
-function metadata
-( p_type    in varchar2
-, p_search  in varchar2 default null
-)
-return tanapi.pls_result
-is
-  cursor c_values
-  is
-    select xmlelement("values"
-           , xmlagg
-             ( xmlelement("row"
-               , xmlattributes(m.id as "id")
-               , xmlforest(m.value  as "title")
-               ) order by lower(m.value)
-             )
-           )
-    from   tanapi.metadata m
-    where  m.type = p_type
-      and  lower(m.value) like '%'||lower(p_search)||'%'
-      and  m.is_active = 'Y'
-  ;
-
-  cursor c_lookup(b_values_xml in xmltype)
-  is
-    select xmlelement("lookup"
-           , xmlelement("form"
-             , xmlattributes(PCK_NAME||'.metadata' as "prcName")
-             , xmlelement("input"
-               , xmlattributes
-                 ( 'hidden'   as "type"
-                 , 'p_type'   as "name"
-                 , p_type     as "value"
-                 )
-               )
-             , xmlelement("input"
-               , xmlattributes
-                 ( 'text'     as "type"
-                 , 'p_search' as "name"
-                 , 'Search'   as "placeholder"
-                 , 'Zoeken'   as "placeholder-nl"
-                 , p_search   as "value"
-                 )
-               )
-             )
-           , xmlelement("columns"
-             , xmlelement("column"
-               , xmlattributes('Value' as "title", 'Waarde' as "title-nl")
-               )
-             )
-           , b_values_xml
-           )
-    from   dual
-  ;
-
-  l_values_xml  xmltype;
-  l_lookup_xml  xmltype;
-begin
-  open  c_values;
-  fetch c_values into l_values_xml;
-  close c_values;
-
-  open  c_lookup(l_values_xml);
-  fetch c_lookup into l_lookup_xml;
-  close c_lookup;
-
-  return create_lookup(l_lookup_xml);
-end metadata;
-
-
-function glossary_terms
-( p_node_id      in number
-, p_stn_glossary in varchar2 default '%GLOSSARY%'
-, p_search       in varchar2 default null
-)
-return tanapi.pls_result
-is
-  cursor c_values
-  is
-    select xmlelement("values"
-           , xmlagg
-             ( xmlelement("row"
-               , xmlattributes(extractvalue(t.column_value,'/term/@id') as "id")
-               , extract(t.column_value,'/term/name')
-               ) order by lower(extractvalue(t.column_value,'/term/name/text()[.!=''''][1]'))
-             )
-           )
-    from              tanapi.nodes             n
-           inner join tanapi.document_versions dv on dv.id = n.document_version_id
-           inner join tanapi.section_types     st on st.id = n.section_type_id
-           inner join tanapi.xmldata           x  on x.id  = n.xmldata_id
-    ,      table(xmlsequence(extract(x.xmldata,'/glossary/term'))) t
-    where  dv.latest_ind = 'Y'
-      and  st.name like p_stn_glossary
-      and  lower(extractvalue(t.column_value,'/term/name/text()')) like '%'||lower(p_search)||'%'
-      and  dv.document_id =
-           ( select dv2.document_id
-             from              tanapi.nodes             n2
-                    inner join tanapi.document_versions dv2 on dv2.id = n2.document_version_id
-             where  n2.id = p_node_id
-           )
-  ;
-
-  cursor c_lookup(b_values_xml in xmltype)
-  is
-    select xmlelement("lookup"
-           , xmlelement("form"
-             , xmlattributes(PCK_NAME||'.glossary_terms' as "prcName")
-             , xmlelement("input"
-               , xmlattributes
-                 ( 'hidden'    as "type"
-                 , 'p_node_id' as "name"
-                 , p_node_id   as "value"
-                 )
-               )
-             , xmlelement("input"
-               , xmlattributes
-                 ( 'text'     as "type"
-                 , 'p_search' as "name"
-                 , 'Search'   as "placeholder"
-                 , 'Zoeken'   as "placeholder-nl"
-                 , p_search   as "value"
-                 )
-               )
-             )
-           , xmlelement("columns"
-             , xmlelement("column"
-               , xmlattributes('Term' as "title", 'Term' as "title-nl")
-               )
-             )
-           , b_values_xml
-           )
-    from   dual
-  ;
-
-  l_values_xml  xmltype;
-  l_lookup_xml  xmltype;
-begin
-  open  c_values;
-  fetch c_values into l_values_xml;
-  close c_values;
-
-  open  c_lookup(l_values_xml);
-  fetch c_lookup into l_lookup_xml;
-  close c_lookup;
-
-  return create_lookup(l_lookup_xml);
-end glossary_terms;
-
-
-end tdi_lookup;
-/

package/build/project/tangelo-default-implementation/src/database/tdi/plsql/tdi_lookup.pks

@@ -1,64 +0,0 @@
-create or replace package tdi_lookup
-is
-
-
-function create_lookup
-( p_xml   in xmltype
-, p_xsl   in varchar2 default null
-, p_dir   in varchar2 default null
-)
-return tanapi.pls_result;
-
-
-function sections_tree
-( p_document_id     in number
-)
-return tanapi.pls_result;
-
-
-function documents
-( p_search         in varchar2 default null
-, p_document_type  in number   default null
-, p_restrict_to_dt in varchar2 default 'false'
-)
-return tanapi.pls_result;
-
-
-function news_channels
-( p_search in varchar2 default null
-)
-return tanapi.pls_result;
-
-
-function file_collections
-( p_search        in varchar2 default null
-)
-return tanapi.pls_result;
-
-
-function files
-( p_file_type_id  in number   default null
-, p_media_type_id in number   default null
-, p_collection_id in number   default null
-, p_search        in varchar2 default null
-)
-return tanapi.pls_result;
-
-
-function metadata
-( p_type    in varchar2
-, p_search  in varchar2 default null
-)
-return tanapi.pls_result;
-
-
-function glossary_terms
-( p_node_id      in number
-, p_stn_glossary in varchar2 default '%GLOSSARY%'
-, p_search       in varchar2 default null
-)
-return tanapi.pls_result;
-
-
-end tdi_lookup;
-/