Index: openacs-4/packages/acs-service-contract/sql/oracle/upgrade/upgrade-4.7d2-4.7d3.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/sql/oracle/upgrade/upgrade-4.7d2-4.7d3.sql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-service-contract/sql/oracle/upgrade/upgrade-4.7d2-4.7d3.sql	16 Sep 2003 08:29:59 -0000	1.3
+++ openacs-4/packages/acs-service-contract/sql/oracle/upgrade/upgrade-4.7d2-4.7d3.sql	1 Oct 2003 10:28:52 -0000	1.4
@@ -65,11 +65,14 @@
    ) return acs_sc_impls.impl_id%TYPE
    is
        v_impl_id		acs_sc_impls.impl_id%TYPE;
+       v_impl_pretty_name       varchar(4000);
    begin
        v_impl_id := acs_object.new (object_type => 'acs_sc_implementation');
 
-        if impl_pretty_name is null theen
-            impl_pretty_name := impl_name;
+        if impl_pretty_name is null then
+            v_impl_pretty_name := impl_name;
+        else
+            v_impl_pretty_name := impl_pretty_name;
         end if;
 
        insert into acs_sc_impls (
@@ -81,7 +84,7 @@
        ) values (
 	      v_impl_id,
 	      impl_name,
-              impl_pretty_name,
+              v_impl_pretty_name,
 	      impl_owner_name,
 	      impl_contract_name
        );
@@ -186,7 +189,6 @@
 /
 show errors
 
-
 create or replace view valid_uninstalled_bindings as
     select c.contract_id, c.contract_name, i.impl_id, i.impl_name, i.impl_owner_name, i.impl_pretty_name
     from acs_sc_contracts c, acs_sc_impls i