Index: openacs-4/packages/acs-service-contract/sql/postgresql/upgrade/upgrade-4.5.1-4.6.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/sql/postgresql/upgrade/upgrade-4.5.1-4.6.sql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-service-contract/sql/postgresql/upgrade/upgrade-4.5.1-4.6.sql	29 Oct 2002 01:51:54 -0000	1.1.2.1
@@ -0,0 +1,47 @@
+-- packages/acs-service-contract/sql/oracle/upgrade/upgrade-4.5-4.5.1.sql
+--
+-- @author Vinod Kurup (vinod@kurup.com)
+-- @creation_date 2002-08-14
+--
+-- $Id: upgrade-4.5.1-4.6.sql,v 1.1.2.1 2002/10/29 01:51:54 vinodk Exp $
+
+-- UPGRADE ISSUE #1
+-- add more verbose error message
+
+create or replace function acs_sc_binding__new(integer,integer)
+returns integer as '
+declare
+    p_contract_id		alias for $1;
+    p_impl_id			alias for $2;
+    v_contract_name		varchar;
+    v_impl_name			varchar;
+    v_count			integer;
+begin
+
+    v_contract_name := acs_sc_contract__get_name(p_contract_id);
+    v_impl_name := acs_sc_impl__get_name(p_impl_id);
+
+    select count(*) into v_count
+    from acs_sc_operations
+    where contract_id = p_contract_id
+    and operation_name not in (select impl_operation_name
+		       	       from acs_sc_impl_aliases
+			       where impl_contract_name = v_contract_name
+			       and impl_id = p_impl_id);
+
+    if v_count > 0 then
+        raise exception ''Binding of % to % failed since certain operations are not implemented.'', v_contract_name, v_impl_name;
+    end if;
+
+    insert into acs_sc_bindings (
+        contract_id,
+	impl_id
+    ) values (
+        p_contract_id,
+	p_impl_id
+    );
+
+    return 0;
+
+end;' language 'plpgsql';
+