Index: openacs-4/packages/acs-service-contract/www/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/www/index-oracle.xql,v
diff -u -N
--- openacs-4/packages/acs-service-contract/www/index-oracle.xql	16 Sep 2003 08:30:00 -0000	1.4
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,26 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
-
-<fullquery name="valid_installed_binding">      
-      <querytext>
-        select q.* 
-        from (select 
-                  b.contract_id,
-                  b.impl_id,
-                  acs_sc_contract.get_name(contract_id) as contract_name,
-                  acs_sc_impl.get_name(b.impl_id) as impl_name,
-                  impl.impl_owner_name,
-                  impl.impl_pretty_name
-              from
-                  acs_sc_bindings b, 
-                  acs_sc_impls impl
-              where
-                  impl.impl_id = b.impl_id) q
-        order  by upper(contract_name), contract_name, upper(impl_name), impl_name
-      </querytext>
-</fullquery>
-
- 
-</queryset>
Index: openacs-4/packages/acs-service-contract/www/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/www/index-postgresql.xql,v
diff -u -N
--- openacs-4/packages/acs-service-contract/www/index-postgresql.xql	16 Sep 2003 08:30:00 -0000	1.4
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,26 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
-<fullquery name="valid_installed_binding">      
-      <querytext>
-        select q.* 
-        from (select 
-                  b.contract_id,
-                  b.impl_id,
-                  acs_sc_contract__get_name(contract_id) as contract_name,
-                  acs_sc_impl__get_name(b.impl_id) as impl_name,
-                  impl.impl_owner_name,
-                  impl.impl_pretty_name
-              from
-                  acs_sc_bindings b, 
-                  acs_sc_impls impl
-              where
-                  impl.impl_id = b.impl_id) q
-        order  by upper(contract_name), contract_name, upper(impl_name), impl_name
-      </querytext>
-</fullquery>
- 
-</queryset>
-
Index: openacs-4/packages/acs-service-contract/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/www/index.tcl,v
diff -u -N -r1.11.2.2 -r1.11.2.3
--- openacs-4/packages/acs-service-contract/www/index.tcl	19 Dec 2019 16:02:30 -0000	1.11.2.2
+++ openacs-4/packages/acs-service-contract/www/index.tcl	2 Jan 2020 18:13:02 -0000	1.11.2.3
@@ -29,7 +29,23 @@
 
 
 
-db_multirow valid_installed_bindings valid_installed_binding {}
+db_multirow valid_installed_bindings valid_installed_binding {
+        select q.*
+        from (select
+                  b.contract_id,
+                  b.impl_id,
+                  (select contract_name from acs_sc_contracts
+                    where contract_id = b.contract_id) as contract_name,
+                  impl.impl_name,
+                  impl.impl_owner_name,
+                  impl.impl_pretty_name
+              from
+                  acs_sc_bindings b,
+                  acs_sc_impls impl
+              where
+                  impl.impl_id = b.impl_id) q
+        order  by upper(contract_name), contract_name, upper(impl_name), impl_name
+}
 
 template::list::create \
     -name valid_installed_bindings \