Index: openacs-4/packages/acs-service-contract/sql/oracle/acs-sc-packages-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/sql/oracle/acs-sc-packages-create.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-service-contract/sql/oracle/acs-sc-packages-create.sql 31 Jan 2002 03:04:32 -0000 1.5
+++ openacs-4/packages/acs-service-contract/sql/oracle/acs-sc-packages-create.sql 6 Feb 2002 21:58:55 -0000 1.6
@@ -3,7 +3,7 @@
create or replace package acs_sc_contract
as
- function new (
+ function new (
contract_name in acs_sc_contracts.contract_name%TYPE,
contract_desc in acs_sc_contracts.contract_desc%TYPE
) return acs_sc_contracts.contract_id%TYPE;
@@ -24,11 +24,10 @@
/
show errors
-
create or replace package acs_sc_operation
as
- function new (
+ function new (
contract_name in acs_sc_contracts.contract_name%TYPE,
operation_name in acs_sc_operations.operation_name%TYPE,
operation_desc in acs_sc_operations.operation_desc%TYPE,
@@ -37,7 +36,7 @@
operation_inputtype in acs_sc_msg_types.msg_type_name%TYPE,
operation_outputtype in acs_sc_msg_types.msg_type_name%TYPE
) return acs_sc_operations.operation_id%TYPE;
-
+
function get_id (
contract_name acs_sc_contracts.contract_name%TYPE,
operation_name acs_sc_operations.operation_name%TYPE
@@ -54,7 +53,7 @@
/
show errors
-create or replace package acs_sc_impl
+create or replace package acs_sc_impl
as
function new (
@@ -125,7 +124,7 @@
create or replace package body acs_sc_contract
as
- function new (
+ function new (
contract_name in acs_sc_contracts.contract_name%TYPE,
contract_desc in acs_sc_contracts.contract_desc%TYPE
) return acs_sc_contracts.contract_id%TYPE
@@ -173,16 +172,16 @@
select contract_name into v_contract_name
from acs_sc_contracts
where contract_id = get_name.contract_id;
-
+
return v_contract_name;
-
+
end get_name;
procedure delete (
contract_name in acs_sc_contracts.contract_name%TYPE default null,
contract_id in acs_sc_contracts.contract_id%TYPE default null
- )
- is
+ )
+ is
v_contract_id acs_sc_contracts.contract_id%TYPE;
begin
@@ -213,7 +212,7 @@
create or replace package body acs_sc_operation
as
- function new (
+ function new (
contract_name in acs_sc_contracts.contract_name%TYPE,
operation_name in acs_sc_operations.operation_name%TYPE,
operation_desc in acs_sc_operations.operation_desc%TYPE,
@@ -235,7 +234,7 @@
v_operation_outputtype_id := acs_sc_msg_type.get_id(operation_outputtype);
insert into acs_sc_operations (
- contract_id,
+ contract_id,
operation_id,
contract_name,
operation_name,
@@ -272,7 +271,7 @@
from acs_sc_operations
where contract_name = get_id.contract_name
and operation_name = get_id.operation_name;
-
+
return v_operation_id;
end get_id;
@@ -281,11 +280,11 @@
operation_id acs_sc_operations.operation_id%TYPE default null,
operation_name acs_sc_operations.operation_name%TYPE default null,
contract_name acs_sc_contracts.contract_name%TYPE default null
- )
+ )
is
- v_operation_id acs_sc_operations.operation_id%TYPE;
+ v_operation_id acs_sc_operations.operation_id%TYPE;
begin
-
+
if (operation_id is NULL and operation_name is not NULL and contract_name is not NULL)
then
v_operation_id := get_id(contract_name, operation_name);
@@ -303,15 +302,15 @@
end delete;
-
+
end acs_sc_operation;
/
show errors
-
+
create or replace package body acs_sc_impl
as
-
+
function new (
impl_contract_name acs_sc_impls.impl_contract_name%TYPE,
impl_name acs_sc_impls.impl_name%TYPE,
@@ -321,7 +320,7 @@
v_impl_id acs_sc_impls.impl_id%TYPE;
begin
v_impl_id := acs_object.new (object_type => 'acs_sc_implementation');
-
+
insert into acs_sc_impls (
impl_id,
impl_name,
@@ -341,7 +340,7 @@
impl_contract_name acs_sc_impls.impl_contract_name%TYPE,
impl_name acs_sc_impls.impl_name%TYPE
) return acs_sc_impls.impl_id%TYPE
- as
+ as
v_impl_id acs_sc_impls.impl_id%TYPE;
begin
@@ -351,7 +350,7 @@
and impl_contract_name = get_id.impl_contract_name;
return v_impl_id;
-
+
end get_id;
@@ -367,26 +366,21 @@
where impl_id = get_name.impl_id;
return v_impl_name;
-
+
end get_name;
-
procedure delete (
impl_contract_name acs_sc_impls.impl_contract_name%TYPE,
impl_name acs_sc_impls.impl_name%TYPE
)
as
begin
-
-
-
delete from acs_sc_impls
- where impl_contract_name = impl_contract_name
- and impl_name = impl_name;
-
+ where impl_contract_name = acs_sc_impl.delete.impl_contract_name
+ and impl_name = acs_sc_impl.delete.impl_name;
end delete;
-
+
/* not sure if this should get folded into the impl package */
function new_alias (
@@ -426,36 +420,36 @@
impl_contract_name acs_sc_contracts.contract_name%TYPE,
impl_name acs_sc_impls.impl_name%TYPE,
impl_operation_name acs_sc_operations.operation_name%TYPE
- ) return acs_sc_impls.impl_id%TYPE
+ ) return acs_sc_impls.impl_id%TYPE
is
v_impl_id acs_sc_impls.impl_id%TYPE;
begin
v_impl_id := acs_sc_impl.get_id(impl_contract_name,impl_name);
- delete from acs_sc_impl_aliases
- where impl_contract_name = delete_alias.impl_contract_name
+ delete from acs_sc_impl_aliases
+ where impl_contract_name = delete_alias.impl_contract_name
and impl_name = delete_alias.impl_name
and impl_operation_name = delete_alias.impl_operation_name;
return v_impl_id;
end delete_alias;
-
+
end acs_sc_impl;
/
show errors
create or replace package body acs_sc_binding
-as
+as
-- you can pick a pair of args, either ids or names to pass in.
procedure new (
contract_id acs_sc_operations.contract_id%TYPE default null,
impl_id acs_sc_bindings.impl_id%TYPE default null,
contract_name acs_sc_contracts.contract_name%TYPE default null,
impl_name acs_sc_impls.impl_name%TYPE default null
- )
+ )
is
v_contract_name acs_sc_contracts.contract_name%TYPE;
v_contract_id acs_sc_contracts.contract_id%TYPE;
@@ -475,15 +469,15 @@
elsif contract_name is not null and impl_name is not null
then
v_contract_id := acs_sc_contract.get_id(contract_name);
- v_impl_id := acs_sc_impl.get_id(contract_name,impl_name);
+ v_impl_id := acs_sc_impl.get_id(contract_name,impl_name);
v_impl_name := impl_name;
v_contract_name := contract_name;
else
raise_application_error(-20001, 'Service Contracts:Invalid args to binding new');
end if;
-
+
select count(*) into v_count
from acs_sc_operations
where contract_id = new.contract_id
@@ -494,7 +488,7 @@
if v_count > 0
then
- raise_application_error(-20001, 'Binding of ' ||
+ raise_application_error(-20001, 'Binding of ' ||
v_contract_name ||
' to ' ||
v_impl_name ||
@@ -534,7 +528,7 @@
else
raise_application_error(-20001, 'Service contract binding delete invalid args');
end if;
-
+
delete from acs_sc_bindings
where contract_id = v_contract_id
and impl_id = v_impl_id;
@@ -551,19 +545,15 @@
begin
v_contract_id := acs_sc_contract.get_id(contract_name);
v_impl_id := acs_sc_impl.get_id(contract_name,impl_name);
-
+
select decode(count(*),0, 0, 1) into v_exists_p
from acs_sc_bindings
where contract_id = v_contract_id
and impl_id = v_impl_id;
-
+
return v_exists_p;
- end exists_p;
+ end exists_p;
end acs_sc_binding;
/
show errors
-
-
-
-