@tangelo/tangelo-configuration-toolkit 1.6.0 → 1.8.0-beta.1

package/build/project/tangelo-default-implementation/src/database/decade/plsql/dcf_update.pkb

@@ -1,114 +0,0 @@
-create or replace package body dcf_update as
-
-
-procedure copy_includes_for_new_version
-( p_document_version_id in number
-)
-is
-  l_prev_document_version_id number;
-begin
-  l_prev_document_version_id := tanapi.obj_select.prev_document_version(p_document_version_id).id;
-
-  for r in
-    (select n1.id prev_node_id, n2.id new_node_id
-     from              tanapi.nodes n1
-            inner join tanapi.nodes n2 on n1.section_id = n2.section_id
-     where  n1.document_version_id = l_prev_document_version_id
-       and  n2.document_version_id = p_document_version_id
-     )
-  loop
-    insert into dcf_includes_xml
-    select dcf_id.nextval, document_id, r.new_node_id, p_document_version_id, type_include,
-           admn_id, raps_id, bgjr_jaar_id, bgjr_bgsr_id, jrsf_jaarschijf_van,
-           jrsf_jaarschijf_tem, bgjr_jaar_id_vorig, sagb_jaar_id,
-           kstp_code_vader, grbr_code_vader, leidende_dimensie,
-           date_include, xmldata
-    from   dcf_includes_xml
-    where  node_id = r.prev_node_id
-    ;
-  end loop;
-
-  commit;
-
-exception
-  when others then
-    tanapi.sys_util.log('E','copy_includes_xml('||p_document_version_id||') failed: '||sqlerrm);
-end copy_includes_for_new_version;
-
-
-function change_year_for_version
-( p_document_version_id in number
-, p_increment           in number default 1
-)
-return tanapi.pls_result
-is
-  l_lock_id  varchar2(300) := tanapi.obj_update.get_lock_id;
-  l_node_xml xmltype;
-begin
-  for r in
-    (select n.id node_id
-     from   tanapi.nodes n
-     where  n.document_version_id = p_document_version_id
-     )
-  loop
-    begin
-      l_node_xml := tanapi.obj_update.get_xml_and_lock(r.node_id, l_lock_id);
-      l_node_xml := l_node_xml.transform(xmltype('
-        <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-           <xsl:output method="xml" indent="no"/>
-           <xsl:template match="@*|node()">
-              <xsl:copy>
-                 <xsl:apply-templates select="@*|node()"/>
-              </xsl:copy>
-           </xsl:template>
-           <xsl:template match="//productBegroting | //programmaBegroting | //jaarrekening">
-              <xsl:copy>
-                 <xsl:apply-templates select="@*"/>
-                 <xsl:attribute name="begrotingsJaar"><xsl:value-of select="@begrotingsJaar + ' || p_increment || '"/></xsl:attribute>
-                 <xsl:if test="not(self::jaarrekening)">
-                   <xsl:attribute name="jaarschijfVA"><xsl:value-of select="@jaarschijfVA + ' || p_increment || '"/></xsl:attribute>
-                   <xsl:attribute name="jaarschijfTM"><xsl:value-of select="@jaarschijfTM + ' || p_increment || '"/></xsl:attribute>
-                 </xsl:if>
-              </xsl:copy>
-           </xsl:template>
-        </xsl:stylesheet>
-      '));
-      tanapi.obj_update.update_xml(r.node_id, l_node_xml, l_lock_id);
-      tanapi.obj_update.release_lock(r.node_id, l_lock_id);
-    exception
-      when others then
-        tanapi.obj_update.release_lock(r.node_id, l_lock_id);
-        raise;
-    end;
-  end loop;
-
-  return new tanapi.pls_result(xmltype('<success/>'));
-exception
-  when others then
-    return new tanapi.pls_result(xmltype('<error>'||sqlerrm||'</error>'));
-end change_year_for_version;
-
-
-function delete_cache_for_version
-( p_document_version_id in number
-)
-return tanapi.pls_result
-is
-begin
-  delete dcf.dcf_includes_xml i
-  where  exists
-         (select 1
-          from   tanapi.nodes n
-          where  n.id = i.node_id
-            and  n.document_version_id = p_document_version_id
-          )
-  ;
-  return new tanapi.pls_result(xmltype('<success/>'));
-exception
-  when others then
-    return new tanapi.pls_result(xmltype('<error>'||sqlerrm||'</error>'));
-end delete_cache_for_version;
-
-
-end dcf_update;
-/

package/build/project/tangelo-default-implementation/src/database/decade/plsql/dcf_update.pks

@@ -1,23 +0,0 @@
-create or replace package dcf_update as
-
-
-procedure copy_includes_for_new_version
-( p_document_version_id in number
-);
-
-
-function change_year_for_version
-( p_document_version_id in number
-, p_increment           in number default 1
-)
-return tanapi.pls_result;
-
-
-function delete_cache_for_version
-( p_document_version_id in number
-)
-return tanapi.pls_result;
-
-
-end dcf_update;
-/

package/build/project/tangelo-default-implementation/src/database/install.sql

@@ -1,93 +0,0 @@
-prompt 
-prompt *********************************************************
-prompt Install script [Customer]
-prompt *********************************************************
-prompt 
-
-set verify off hea off
-
-accept l_tns        char prompt 'Database TNS name  : '           default '-1'
-accept l_un_system  char prompt 'SYSTEM username    : [system] '  default 'system'
-accept l_pw_system  char prompt 'SYSTEM password    : '           default '-1'
-accept l_pw_dcf     char prompt 'DCF password       : [dcf] '     default 'dcf'
-accept l_pw_[custom-schema]     char prompt '[CUSTOM-SCHEMA] password       : [[custom-schema]] '     default '[custom-schema]'
-
-spool install.log
-
-whenever sqlerror exit sql.sqlcode
-
-prompt
-prompt Connect as user &l_un_system
-connect &l_un_system/&l_pw_system@&l_tns
-prompt
-
-prompt Creating users
-@create User DCF decade/create_user_dcf.sql
-@create User [CUSTOM-SCHEMA] custom/create_user_[custom-schema].sql
-prompt
-
-prompt Granting objects
-@decade/grants_to_dcf.sql
-@custom/grants_to_[custom-schema].sql
-
-prompt
-prompt Connect as user DCF
-connect dcf/&l_pw_dcf@&l_tns
-prompt
-
-prompt Installing objects for DCF
-@create Object DCF_ID decade/dcf_id.seq
-@create Object DCF_INCLUDES_XML decade/dcf_includes_xml.tab
-
-set define off
-
-@decade/plsql/dcf_lookup.pks
-@decade/plsql/dcf_include.pks
-@decade/plsql/dcf_update.pks
-
-@decade/plsql/dcf_lookup.pkb
-@decade/plsql/dcf_include.pkb
-@decade/plsql/dcf_update.pkb
-
-set define on
-
-prompt
-prompt Connect as user [CUSTOM-SCHEMA]
-connect [custom-schema]/&l_pw_[custom-schema]@&l_tns
-prompt
-
-prompt Installing objects for [CUSTOM-SCHEMA]
-set define off
-
-@custom/plsql/[custom-schema]_include.pks
-@custom/plsql/[custom-schema]_lookup.pks
-
-@custom/plsql/[custom-schema]_include.pkb
-@custom/plsql/[custom-schema]_lookup.pkb
-
-set define on
-
-prompt
-prompt Connect as user &l_un_system
-connect &l_un_system/&l_pw_system@&l_tns
-prompt
-
-prompt Granting objects
-@decade/grants_on_dcf.sql
-@custom/grants_on_[custom-schema].sql
-
-prompt Compile invalid objects
-begin
-  dbms_utility.compile_schema('[CUSTOM-SCHEMA]');
-end;
-/
-
-prompt
-prompt Installation complete
-prompt
-
-disconnect
-spool off
-
-pause Press any key to exit
-exit

package/build/project/tangelo-default-implementation/src/database/tdi/create_user_tdi.sql

@@ -1,10 +0,0 @@
-create user TDI
-  identified by &l_pw_tdi
-  default tablespace &l_def_ts
-  temporary tablespace &l_tmp_ts
-  profile TANGELO_PROFILE;
-grant connect to TDI;
-grant resource to TDI;
-grant create table to TDI;
-grant create view to TDI;
-grant unlimited tablespace to TDI;

package/build/project/tangelo-default-implementation/src/database/tdi/grants_on_tdi.sql

@@ -1,3 +0,0 @@
-grant execute on tdi.tdi_numbering    to tancms,tanpls;
-grant execute on tdi.tdi_lookup       to tanpls;
-grant execute on tdi.tdi_include      to tancms,tanpls;

package/build/project/tangelo-default-implementation/src/database/tdi/grants_to_tdi.sql

@@ -1,22 +0,0 @@
-grant execute      on tancms.tan_auth                       to tdi;
-grant execute      on tancms.tdl_api                        to tdi;
-grant select       on tancms.txd_auth_docs_cm_priv          to tdi;
-grant select       on tancms.tdl_collections                to tdi;
-grant select       on tancms.tdl_files                      to tdi;
-grant select       on tancms.tdl_file_types                 to tdi;
-grant select       on tancms.tne_channels                   to tdi;
-grant select       on tancms.txd_object_elements            to tdi;
-grant select       on tancms.txd_object_references          to tdi;
-
-grant execute      on tanapi.pls_result                     to tdi;
-grant execute      on tanapi.sys_util                       to tdi;
-grant execute      on tanapi.obj_select                     to tdi;
-grant execute      on tanapi.xml_include                    to tdi;
-grant select       on tanapi.nodes                          to tdi;
-grant select       on tanapi.xmldata                        to tdi;
-grant select       on tanapi.documents                      to tdi;
-grant select       on tanapi.document_versions              to tdi;
-grant select       on tanapi.document_types                 to tdi;
-grant select       on tanapi.section_types                  to tdi;
-grant select       on tanapi.object_refs                    to tdi;
-grant select       on tanapi.metadata                       to tdi;

package/build/project/tangelo-default-implementation/src/database/tdi/install.sql

@@ -1,76 +0,0 @@
-prompt 
-prompt ***********************
-prompt Installation script TDI
-prompt ***********************
-prompt 
-
-set verify off hea off
-
-define l_tmp_ts = 'TEMP'
-define l_def_ts = 'TANGELO'
-
-accept l_tns        char prompt 'Database TNS name  : '           default '-1'
-accept l_un_system  char prompt 'SYSTEM username    : [system] '  default 'system'
-accept l_pw_system  char prompt 'SYSTEM password    : '           default '-1'
-accept l_pw_tdi     char prompt 'TDI password       : [tdi] '     default 'tdi'
-
-spool install.log
-
-whenever sqlerror exit sql.sqlcode
-
-prompt
-prompt Connect as user &l_un_system
-connect &l_un_system/&l_pw_system@&l_tns
-prompt
-
-prompt Creating user TDI
-@../create User TDI create_user_tdi.sql
-prompt
-
-prompt Granting objects to TDI
-@grants_to_tdi.sql
-
-prompt
-prompt Connect as user TDI
-connect tdi/&l_pw_tdi@&l_tns
-prompt
-
-prompt Installing objects for TDI
-set define off
-
-@plsql/tdi_numbering.pks
-@plsql/tdi_lookup.pks
-@plsql/tdi_include.pks
-
-@plsql/tdi_numbering.pkb
-@plsql/tdi_lookup.pkb
-@plsql/tdi_include.pkb
-
-set define on
-
-prompt
-prompt Connect as user &l_un_system
-connect &l_un_system/&l_pw_system@&l_tns
-prompt
-
-prompt Granting TDI objects to other schemas
-@grants_on_tdi.sql
-
-prompt Register xslt files for use in projects
-@tan_xmlcache_files.sql
-
-prompt Compile invalid objects
-begin
-  dbms_utility.compile_schema('TDI');
-end;
-/
-
-prompt
-prompt Installation complete
-prompt
-
-disconnect
-spool off
-
-pause Press any key to exit
-exit

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

@@ -1,141 +0,0 @@
-create or replace package body tdi_include
-is
-
-
-function section_link_wnum
-( p_section_id               in number
-, p_link_document_id         in number
-, p_link_document_version_id in number
-)
-return xmltype
-is
-  l_xml    xmltype;
-  l_number varchar2(50);
-begin
-  l_xml := tanapi.xml_include.section_link(p_section_id,p_link_document_id,p_link_document_version_id);
-
-  select tdi_numbering.get_number(extractvalue(l_xml,'*/@nodeId'))
-  into   l_number
-  from   dual
-  ;
-
-  if l_number is not null then
-    select xmlquery
-           ( 'copy $tmp := .
-              modify (
-                insert node attribute nodeNumber {$number} into $tmp/*
-              )
-              return $tmp
-             '
-             passing l_xml, l_number as "number"
-             returning content
-           ) xml
-    into   l_xml
-    from   dual
-    ;
-  end if;
-
-  return l_xml;
-
-exception
-  when others then
-    return tanapi.sys_util.error_in_element('tanSectionInfo');
-end section_link_wnum;
-
-
-function section_link_wnum_http
-( p_section_id               in number
-, p_link_document_id         in number
-, p_link_document_version_id in number
-)
-return tanapi.pls_result
-is
-begin
-  return tanapi.sys_util.create_pls_result(section_link_wnum(p_section_id,p_link_document_id,p_link_document_version_id));
-end section_link_wnum_http;
-
-
--- BELOW FUNCTIONS ARE DEPRECATED
-
-
-function section_link_wpc
-( p_section_id               in number
-, p_link_document_id         in number
-, p_link_document_version_id in number
-)
-return xmltype
-is
-  l_xml xmltype;
-begin
-  l_xml := tanapi.xml_include.section_link(p_section_id,p_link_document_id,p_link_document_version_id);
-
-  select appendchildxml
-         ( l_xml
-         , 'tanSectionInfo'
-         , tdi_numbering.paragraph_code_xml(extractvalue(l_xml,'*/@nodeId'))
-         )
-  into   l_xml
-  from   dual
-  ;
-
-  return l_xml;
-
-exception
-  when others then
-    return tanapi.sys_util.error_in_element('tanSectionInfo');
-end section_link_wpc;
-
-
-function section_link_wpc_http
-( p_section_id               in number
-, p_link_document_id         in number
-, p_link_document_version_id in number
-)
-return tanapi.pls_result
-is
-begin
-  return tanapi.sys_util.create_pls_result(section_link_wpc(p_section_id,p_link_document_id,p_link_document_version_id));
-end section_link_wpc_http;
-
-
--- for use in website via hook function
-function paragraph_codes
-( p_document_id                 in number
-, p_node_id                     in number
-, p_document_version_id         in number
-, p_context                     in varchar2
-, p_external_xml                in xmltype
-)
-return xmltype
-is
-  l_start_node number;
-
-  function get_ancestor_fs_chapter(p_node_id in number)
-  return number
-  is
-    l_parent  number;
-    l_ds_name varchar2(50);
-  begin
-    select n.parent_id, st.name
-    into   l_parent, l_ds_name
-    from              tanapi.nodes         n
-           inner join tanapi.section_types st on st.id = n.section_type_id
-    where  n.id = p_node_id
-    ;
-
-    if instr(l_ds_name,'_FS_') = 0 or l_parent is null then
-      return 0;
-    elsif substr(l_ds_name,instr(l_ds_name,'_FS')) = '_FS_CHAPTER' then
-      return p_node_id;
-    else
-      return get_ancestor_fs_chapter(l_parent);
-    end if;
-  end;
-begin
-  l_start_node := get_ancestor_fs_chapter(p_node_id);
-  return tdi_numbering.paragraph_code_xml(l_start_node, p_document_version_id, p_full_branche => 'Y', p_included_nodes => 'N');
-end paragraph_codes;
-
-
-end tdi_include;
-/

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

@@ -1,52 +0,0 @@
-create or replace package tdi_include
-is
-
-
-function section_link_wnum
-( p_section_id               in number
-, p_link_document_id         in number
-, p_link_document_version_id in number
-)
-return xmltype;
-
-
-function section_link_wnum_http
-( p_section_id               in number
-, p_link_document_id         in number
-, p_link_document_version_id in number
-)
-return tanapi.pls_result;
-
-
--- BELOW FUNCTIONALITY IS DEPRECATED
-
-
-function section_link_wpc
-( p_section_id               in number
-, p_link_document_id         in number
-, p_link_document_version_id in number
-)
-return xmltype;
-
-
-function section_link_wpc_http
-( p_section_id               in number
-, p_link_document_id         in number
-, p_link_document_version_id in number
-)
-return tanapi.pls_result;
-
-
--- for use in website via hook function
-function paragraph_codes
-( p_document_id                 in number
-, p_node_id                     in number
-, p_document_version_id         in number
-, p_context                     in varchar2
-, p_external_xml                in xmltype
-)
-return xmltype;
-
-
-end tdi_include;
-/