Index: openacs-4/packages/acs-service-contract/sql/oracle/acs-sc-views-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/sql/oracle/acs-sc-views-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-service-contract/sql/oracle/acs-sc-views-create.sql	15 Feb 2002 14:55:19 -0000	1.3
+++ openacs-4/packages/acs-service-contract/sql/oracle/acs-sc-views-create.sql	16 Sep 2003 08:29:58 -0000	1.4
@@ -1,7 +1,7 @@
 -- $Id$
 
 create or replace view valid_uninstalled_bindings as
-    select c.contract_id, c.contract_name, i.impl_id, i.impl_name
+    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
     where c.contract_name = i.impl_contract_name
     and not exists (select 1
@@ -20,7 +20,7 @@
 
 
 create or replace view invalid_uninstalled_bindings as
-    select c.contract_id, c.contract_name, i.impl_id, i.impl_name
+    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
     where c.contract_name = i.impl_contract_name
     and not exists (select 1
@@ -38,7 +38,7 @@
 
 
 create or replace view orphan_implementations as
-    select i.impl_id, i.impl_name, i.impl_contract_name
+    select i.impl_id, i.impl_name, i.impl_contract_name, i.impl_owner_name, i.impl_pretty_name
     from acs_sc_impls i
     where not exists (select 1
 		      from acs_sc_bindings b
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 -r1.2 -r1.3
--- openacs-4/packages/acs-service-contract/sql/oracle/upgrade/upgrade-4.7d2-4.7d3.sql	11 Sep 2003 08:58:22 -0000	1.2
+++ openacs-4/packages/acs-service-contract/sql/oracle/upgrade/upgrade-4.7d2-4.7d3.sql	16 Sep 2003 08:29:59 -0000	1.3
@@ -7,6 +7,8 @@
 -- add column impl_pretty_name
 alter table acs_sc_impls add impl_pretty_name varchar2(200);
 
+update acs_sc_impls set impl_pretty_name = impl_name;
+
 create or replace package acs_sc_impl
 as
 
@@ -66,6 +68,10 @@
    begin
        v_impl_id := acs_object.new (object_type => 'acs_sc_implementation');
 
+        if impl_pretty_name is null theen
+            impl_pretty_name := impl_name;
+        end if;
+
        insert into acs_sc_impls (
 	      impl_id,
 	      impl_name,
@@ -179,3 +185,51 @@
 end acs_sc_impl;
 /
 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
+    where c.contract_name = i.impl_contract_name
+    and not exists (select 1
+		    from acs_sc_bindings b
+		    where b.contract_id = c.contract_id
+		    and b.impl_id = i.impl_id)
+    and not exists (select 1
+		    from acs_sc_operations o
+		    where o.contract_id = c.contract_id
+		    and not exists (select 1
+				    from acs_sc_impl_aliases a
+				    where a.impl_contract_name = c.contract_name
+				    and a.impl_id = i.impl_id
+				    and a.impl_operation_name = o.operation_name));
+
+
+
+create or replace view invalid_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
+    where c.contract_name = i.impl_contract_name
+    and not exists (select 1
+		    from acs_sc_bindings b
+		    where b.contract_id = c.contract_id
+		    and b.impl_id = i.impl_id)
+    and exists (select 1
+	        from acs_sc_operations o
+		where o.contract_id = c.contract_id
+		and not exists (select 1
+			        from acs_sc_impl_aliases a
+				where a.impl_contract_name = c.contract_name
+				and a.impl_id = i.impl_id
+				and a.impl_operation_name = o.operation_name));
+
+
+create or replace view orphan_implementations as
+    select i.impl_id, i.impl_name, i.impl_contract_name, i.impl_owner_name, i.impl_pretty_name
+    from acs_sc_impls i
+    where not exists (select 1
+		      from acs_sc_bindings b
+		      where b.impl_id = i.impl_id)
+    and not exists (select 1
+		    from acs_sc_contracts c
+		    where c.contract_name = i.impl_contract_name);
Index: openacs-4/packages/acs-service-contract/sql/postgresql/acs-sc-packages-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/sql/postgresql/acs-sc-packages-create.sql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-service-contract/sql/postgresql/acs-sc-packages-create.sql	11 Sep 2003 09:12:17 -0000	1.8
+++ openacs-4/packages/acs-service-contract/sql/postgresql/acs-sc-packages-create.sql	16 Sep 2003 08:29:59 -0000	1.9
@@ -259,7 +259,7 @@
     v_impl_id := acs_sc_impl__new(
         p_impl_contract_name,
         p_impl_name,
-        null,
+        p_impl_name,
         p_impl_owner_name
     );
 
Index: openacs-4/packages/acs-service-contract/sql/postgresql/acs-sc-views-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/sql/postgresql/acs-sc-views-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-service-contract/sql/postgresql/acs-sc-views-create.sql	6 Oct 2001 16:30:30 -0000	1.2
+++ openacs-4/packages/acs-service-contract/sql/postgresql/acs-sc-views-create.sql	16 Sep 2003 08:29:59 -0000	1.3
@@ -1,46 +1,45 @@
-create view valid_uninstalled_bindings as
-    select c.contract_id, c.contract_name, i.impl_id, i.impl_name
+    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
     where c.contract_name = i.impl_contract_name
     and not exists (select 1
-		    from acs_sc_bindings b
-		    where b.contract_id = c.contract_id
-		    and b.impl_id = i.impl_id)
+                    from acs_sc_bindings b
+                    where b.contract_id = c.contract_id
+                    and b.impl_id = i.impl_id)
     and not exists (select 1
-		    from acs_sc_operations o
-		    where o.contract_id = c.contract_id
-		    and not exists (select 1
-				    from acs_sc_impl_aliases a
-				    where a.impl_contract_name = c.contract_name
-				    and a.impl_id = i.impl_id
-				    and a.impl_operation_name = o.operation_name));
+                    from acs_sc_operations o
+                    where o.contract_id = c.contract_id
+                    and not exists (select 1
+                                    from acs_sc_impl_aliases a
+                                    where a.impl_contract_name = c.contract_name
+                                    and a.impl_id = i.impl_id
+                                    and a.impl_operation_name = o.operation_name));
 
 
 
 create view invalid_uninstalled_bindings as
-    select c.contract_id, c.contract_name, i.impl_id, i.impl_name
+    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
     where c.contract_name = i.impl_contract_name
     and not exists (select 1
-		    from acs_sc_bindings b
-		    where b.contract_id = c.contract_id
-		    and b.impl_id = i.impl_id)
+                    from acs_sc_bindings b
+                    where b.contract_id = c.contract_id
+                    and b.impl_id = i.impl_id)
     and exists (select 1
-	        from acs_sc_operations o
-		where o.contract_id = c.contract_id
-		and not exists (select 1
-			        from acs_sc_impl_aliases a
-				where a.impl_contract_name = c.contract_name
-				and a.impl_id = i.impl_id
-				and a.impl_operation_name = o.operation_name));
+                from acs_sc_operations o
+                where o.contract_id = c.contract_id
+                and not exists (select 1
+                                from acs_sc_impl_aliases a
+                                where a.impl_contract_name = c.contract_name
+                                and a.impl_id = i.impl_id
+                                and a.impl_operation_name = o.operation_name));
 
 
 create view orphan_implementations as
-    select i.impl_id, i.impl_name, i.impl_contract_name
+    select i.impl_id, i.impl_name, i.impl_owner_name, i.impl_contract_name, i.impl_pretty_name
     from acs_sc_impls i
     where not exists (select 1
-		      from acs_sc_bindings b
-		      where b.impl_id = i.impl_id)
+                      from acs_sc_bindings b
+                      where b.impl_id = i.impl_id)
     and not exists (select 1
-		    from acs_sc_contracts c
-		    where c.contract_name = i.impl_contract_name);
\ No newline at end of file
+                    from acs_sc_contracts c
+                    where c.contract_name = i.impl_contract_name);
Index: openacs-4/packages/acs-service-contract/sql/postgresql/upgrade/upgrade-4.7d2-4.7d3.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/sql/postgresql/upgrade/upgrade-4.7d2-4.7d3.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-service-contract/sql/postgresql/upgrade/upgrade-4.7d2-4.7d3.sql	10 Sep 2003 14:53:06 -0000	1.1
+++ openacs-4/packages/acs-service-contract/sql/postgresql/upgrade/upgrade-4.7d2-4.7d3.sql	16 Sep 2003 08:29:59 -0000	1.2
@@ -7,6 +7,8 @@
 -- add column impl_pretty_name
 alter table acs_sc_impls add column impl_pretty_name varchar(200);
 
+update acs_sc_impls set impl_pretty_name = impl_name;
+
 create or replace function acs_sc_impl__new(varchar,varchar,varchar,varchar)
 returns integer as '
 declare
@@ -43,3 +45,54 @@
     return v_impl_id;
 
 end;' language 'plpgsql';
+
+
+drop view valid_uninstalled_bindings;
+create 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
+    where c.contract_name = i.impl_contract_name
+    and not exists (select 1
+                    from acs_sc_bindings b
+                    where b.contract_id = c.contract_id
+                    and b.impl_id = i.impl_id)
+    and not exists (select 1
+                    from acs_sc_operations o
+                    where o.contract_id = c.contract_id
+                    and not exists (select 1
+                                    from acs_sc_impl_aliases a
+                                    where a.impl_contract_name = c.contract_name
+                                    and a.impl_id = i.impl_id
+                                    and a.impl_operation_name = o.operation_name));
+
+
+
+drop view invalid_uninstalled_bindings;
+create view invalid_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
+    where c.contract_name = i.impl_contract_name
+    and not exists (select 1
+                    from acs_sc_bindings b
+                    where b.contract_id = c.contract_id
+                    and b.impl_id = i.impl_id)
+    and exists (select 1
+                from acs_sc_operations o
+                where o.contract_id = c.contract_id
+                and not exists (select 1
+                                from acs_sc_impl_aliases a
+                                where a.impl_contract_name = c.contract_name
+                                and a.impl_id = i.impl_id
+                                and a.impl_operation_name = o.operation_name));
+
+
+drop view orphan_implementations;
+create view orphan_implementations as
+    select i.impl_id, i.impl_name, i.impl_owner_name, i.impl_contract_name, i.impl_pretty_name
+    from acs_sc_impls i
+    where not exists (select 1
+                      from acs_sc_bindings b
+                      where b.impl_id = i.impl_id)
+    and not exists (select 1
+                    from acs_sc_contracts c
+                    where c.contract_name = i.impl_contract_name);
Index: openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	12 Sep 2003 12:28:20 -0000	1.6
+++ openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	16 Sep 2003 08:29:59 -0000	1.7
@@ -162,12 +162,18 @@
     @author Peter Marklund
 } {
     set full_list [db_list_of_lists select_impl_options {
-        select impl_name,
+        select case when impl_pretty_name != '' then impl_pretty_name else impl_name end as impl_name,
                impl_id
         from acs_sc_impls
         where impl_contract_name = :contract_name
     }]
 
+    set impl_list [list]
+
+    if { ![empty_string_p $empty_label] } {
+        lappend impl_list [list $empty_label ""]
+    }
+
     if { [llength $exclude_names] > 0 } {
         # There are exclude names
         foreach element $full_list {
@@ -179,13 +185,9 @@
         }
     } else {
         # No exclude names, use all options
-        set impl_list $full_list
+        set impl_list [concat $impl_list $full_list]
     }
 
-    if { ![empty_string_p $empty_label] } {
-        lappend impl_list [list $empty_label ""]
-    }
-
     return $impl_list
 }
 
Index: openacs-4/packages/acs-service-contract/www/contract-display-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/www/contract-display-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-service-contract/www/contract-display-oracle.xql	17 May 2003 09:56:59 -0000	1.2
+++ openacs-4/packages/acs-service-contract/www/contract-display-oracle.xql	16 Sep 2003 08:30:00 -0000	1.3
@@ -9,7 +9,8 @@
             b.contract_id,
             b.impl_id,
             acs_sc_impl.get_name(b.impl_id) as impl_name,
-            impl.impl_owner_name
+            impl.impl_owner_name,
+            impl.impl_pretty_name
         from
             acs_sc_bindings b, 
             acs_sc_impls impl
Index: openacs-4/packages/acs-service-contract/www/contract-display-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/www/contract-display-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-service-contract/www/contract-display-postgresql.xql	17 May 2003 09:56:59 -0000	1.2
+++ openacs-4/packages/acs-service-contract/www/contract-display-postgresql.xql	16 Sep 2003 08:30:00 -0000	1.3
@@ -9,7 +9,8 @@
             b.contract_id,
             b.impl_id,
             acs_sc_impl__get_name(b.impl_id) as impl_name,
-            impl.impl_owner_name
+            impl.impl_owner_name,
+            impl.impl_pretty_name
         from
             acs_sc_bindings b, 
             acs_sc_impls impl
Index: openacs-4/packages/acs-service-contract/www/contract-display.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/www/contract-display.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-service-contract/www/contract-display.adp	22 May 2003 14:06:49 -0000	1.4
+++ openacs-4/packages/acs-service-contract/www/contract-display.adp	16 Sep 2003 08:30:00 -0000	1.5
@@ -1,6 +1,6 @@
   <master>
-    <property name="title">contract @contract_name;noquote@</property>
-    <property name="context">"one contract"</property>
+    <property name="title">Contract @contract_name;noquote@</property>
+    <property name="context">{@contract_name;noquote@}</property>
 
     <ul>
       <multiple name=contract>
@@ -17,17 +17,6 @@
 
     <h3>Valid Installed Bindings</h3>
 
-    <ul>
-      <if @valid_installed_binding:rowcount@ eq 0>
-        <li><i>None</i></li>
-      </if>
-      <else>
-        <multiple name=valid_installed_binding>
-          <li>@valid_installed_binding.impl_id@
-          @valid_installed_binding.impl_name@
-          (@valid_installed_binding.impl_owner_name@)
-          [<a href="binding-uninstall?contract_id=@valid_installed_binding.contract_id@&impl_id=@valid_installed_binding.impl_id@">Uninstall</a>]</li>
-        </multiple>
-      </else>
-    </ul>
+    <p><listtemplate name="bindings"></listtemplate></p>
 
+
Index: openacs-4/packages/acs-service-contract/www/contract-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/www/contract-display.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-service-contract/www/contract-display.tcl	17 May 2003 09:56:59 -0000	1.3
+++ openacs-4/packages/acs-service-contract/www/contract-display.tcl	16 Sep 2003 08:30:00 -0000	1.4
@@ -19,4 +19,26 @@
     order by o.contract_name, o.operation_name, t.msg_type_name, e.element_pos }
 
 
-db_multirow valid_installed_binding valid_installed_binding ""
+template::list::create \
+    -name bindings \
+    -multirow valid_installed_binding \
+    -elements {
+        impl_name {
+            label "Implementation Name"
+        }
+        impl_pretty_name {
+            label "Label"
+        }
+        impl_owner_name {
+            label "Owner"
+        }
+        uninstall {
+            label {}
+            link_url_eval {[export_vars -base binding-uninstall { contract_id impl_id }]}
+            link_html { title "Uninstall binding" }
+            display_template {Uninstall}
+            sub_class narrow
+        }
+    }
+
+db_multirow valid_installed_binding valid_installed_binding {}
Index: openacs-4/packages/acs-service-contract/www/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/www/Attic/index-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-service-contract/www/index-oracle.xql	9 Sep 2003 09:37:16 -0000	1.3
+++ openacs-4/packages/acs-service-contract/www/index-oracle.xql	16 Sep 2003 08:30:00 -0000	1.4
@@ -11,7 +11,8 @@
                   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_owner_name,
+                  impl.impl_pretty_name
               from
                   acs_sc_bindings b, 
                   acs_sc_impls impl
Index: openacs-4/packages/acs-service-contract/www/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/www/Attic/index-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-service-contract/www/index-postgresql.xql	9 Sep 2003 09:37:16 -0000	1.3
+++ openacs-4/packages/acs-service-contract/www/index-postgresql.xql	16 Sep 2003 08:30:00 -0000	1.4
@@ -11,7 +11,8 @@
                   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_owner_name,
+                  impl.impl_pretty_name
               from
                   acs_sc_bindings b, 
                   acs_sc_impls impl
Index: openacs-4/packages/acs-service-contract/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/www/index.adp,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-service-contract/www/index.adp	22 May 2003 14:06:49 -0000	1.6
+++ openacs-4/packages/acs-service-contract/www/index.adp	16 Sep 2003 08:30:00 -0000	1.7
@@ -3,78 +3,24 @@
 <property name="context">@context;noquote@</property>
 
 <h2>Defined Contracts</h2>
-<ul>
-<if @defined_contracts:rowcount@ eq 0>
-  <li><i>None</i></li>
-</if>
-<else>
-<multiple name=defined_contracts>
-<li> <a href="contract-display?id=@defined_contracts.contract_id@">@defined_contracts.contract_name@</a> @defined_contracts.contract_desc@</li>
-</multiple>
-</else>
-</ul>
+
+<p><listtemplate name="contracts"></listtemplate></p>
+
+
 <h2>Installed Bindings</h2>
-<ul>
-<if @valid_installed_binding:rowcount@ eq 0>
-  <li><i>None</i></li>
-</if>
-<else>
-<multiple name=valid_installed_binding>
-<li>@valid_installed_binding.contract_id@
-@valid_installed_binding.contract_name@,
-@valid_installed_binding.impl_id@
-@valid_installed_binding.impl_name@
-(@valid_installed_binding.impl_owner_name@)
-[<a href="binding-uninstall?contract_id=@valid_installed_binding.contract_id@&impl_id=@valid_installed_binding.impl_id@">Uninstall</a>]</li>
-</multiple>
-</else>
-</ul>
 
+<p><listtemplate name="valid_installed_bindings"></listtemplate></p>
 
 
 <h3>Valid Uninstalled Bindings</h3>
-<ul>
-<if @valid_uninstalled_binding:rowcount@ eq 0>
-  <li><i>None</i></li>
-</if>
-<else>
-<multiple name=valid_uninstalled_binding>
-<li>@valid_uninstalled_binding.contract_id@
-@valid_uninstalled_binding.contract_name@,
-@valid_uninstalled_binding.impl_id@
-@valid_uninstalled_binding.impl_name@
-[<a href="binding-install?contract_id=@valid_uninstalled_binding.contract_id@&impl_id=@valid_uninstalled_binding.impl_id@">Install</a>]</li>
-</multiple>
-</else>
-</ul>
 
+<p><listtemplate name="valid_uninstalled_bindings"></listtemplate></p>
 
 
 <h3>Invalid Uninstalled Bindings</h3>
-<ul>
-<if @invalid_uninstalled_binding:rowcount@ eq 0>
-  <li><i>None</i></li>
-</if>
-<else>
-<multiple name=invalid_uninstalled_binding>
-<li>@invalid_uninstalled_binding.contract_id@
-@invalid_uninstalled_binding.contract_name@,
-@invalid_uninstalled_binding.impl_id@
-@invalid_uninstalled_binding.impl_name@
-</multiple>
-</else>
-</ul>
 
+<p><listtemplate name="invalid_uninstalled_bindings"></listtemplate></p>
+
 <h3>Orphan Implementations</h3>
-<ul>
-<if @orphan_implementation:rowcount@ eq 0>
-  <li><i>None</i></li>
-</if>
-<else>
-<multiple name=orphan_implementation>
-<li>@orphan_implementation.impl_id@
-@orphan_implementation.impl_name@
-@orphan_implementation.impl_contract_name@
-</multiple>
-</else>
-</ul>
+
+<p><listtemplate name="orphan_implementations"></listtemplate></p>
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 -r1.6 -r1.7
--- openacs-4/packages/acs-service-contract/www/index.tcl	9 Sep 2003 09:37:16 -0000	1.6
+++ openacs-4/packages/acs-service-contract/www/index.tcl	16 Sep 2003 08:30:00 -0000	1.7
@@ -8,11 +8,127 @@
     order  by upper(contract_name), contract_name
 }
 
-db_multirow valid_installed_binding valid_installed_binding ""
+template::list::create \
+    -name contracts \
+    -multirow defined_contracts \
+    -elements {
+        contract_name {
+            label "Name"
+            link_url_eval {[export_vars -base contract-display { { id $contract_id } }]}
+            link_html { title "View contract" }
+        }
+        contract_desc {
+            label "Description"
+        }
+    }
 
-db_multirow valid_uninstalled_binding valid_uninstalled_binding ""
 
-db_multirow invalid_uninstalled_binding invalid_uninstalled_binding ""
 
-db_multirow orphan_implementation orphan_implementation ""
 
+db_multirow valid_installed_bindings valid_installed_binding {}
+
+template::list::create \
+    -name valid_installed_bindings \
+    -multirow valid_installed_bindings \
+    -elements {
+        contract_name {
+            label "Contract"
+            link_url_eval {[export_vars -base contract-display { { id $contract_id } }]}
+            link_html { title "View contract" }
+        }
+        impl_name {
+            label "Implementation"
+        }
+        impl_pretty_name {
+            label "Label"
+        }
+        impl_owner_name {
+            label "Owner"
+        }
+        uninstall {
+            label {}
+            link_url_eval {[export_vars -base binding-uninstall { contract_id impl_id }]}
+            link_html { title "Uninstall binding" }
+            display_template {Uninstall}
+            sub_class narrow
+        }
+    }
+
+
+
+db_multirow valid_uninstalled_bindings valid_uninstalled_binding {}
+
+template::list::create \
+    -name valid_uninstalled_bindings \
+    -multirow valid_uninstalled_bindings \
+    -elements {
+        contract_name {
+            label "Contract"
+            link_url_eval {[export_vars -base contract-display { { id $contract_id } }]}
+            link_html { title "View contract" }
+        }
+        impl_name {
+            label "Implementation"
+        }
+        impl_pretty_name {
+            label "Label"
+        }
+        impl_owner_name {
+            label "Owner"
+        }
+        install {
+            label {}
+            link_url_eval {[export_vars -base binding-install { contract_id impl_id }]}
+            link_html { title "Install binding" }
+            display_template {Install}
+            sub_class narrow
+        }
+    }
+
+
+
+
+db_multirow invalid_uninstalled_bindings invalid_uninstalled_binding {}
+
+template::list::create \
+    -name invalid_uninstalled_bindings \
+    -multirow invalid_uninstalled_bindings \
+    -elements {
+        contract_name {
+            label "Contract"
+            link_url_eval {[export_vars -base contract-display { { id $contract_id } }]}
+            link_html { title "View contract" }
+        }
+        impl_name {
+            label "Implementation"
+        }
+        impl_pretty_name {
+            label "Label"
+        }
+        impl_owner_name {
+            label "Owner"
+        }
+    }
+
+
+
+
+db_multirow orphan_implementations orphan_implementation {}
+
+template::list::create \
+    -name orphan_implementations \
+    -multirow orphan_implementations \
+    -elements {
+        impl_contract_name {
+            label "Contract"
+        }
+        impl_name {
+            label "Implementation"
+        }
+        impl_pretty_name {
+            label "Label"
+        }
+        impl_owner_name {
+            label "Owner"
+        }
+    }
Index: openacs-4/packages/acs-service-contract/www/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/www/index.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-service-contract/www/index.xql	9 Sep 2003 09:37:16 -0000	1.3
+++ openacs-4/packages/acs-service-contract/www/index.xql	16 Sep 2003 08:30:00 -0000	1.4
@@ -4,15 +4,15 @@
 
 <fullquery name="valid_uninstalled_binding">      
    <querytext>
-     select contract_id, contract_name, impl_name,impl_id 
+     select contract_id, contract_name, impl_name, impl_owner_name, impl_id 
      from   valid_uninstalled_bindings
      order  by upper(contract_name), contract_name, upper(impl_name), impl_name
    </querytext>
 </fullquery>
 
 <fullquery name="invalid_uninstalled_binding">      
    <querytext>
-      select contract_id, contract_name, impl_name,impl_id 
+      select contract_id, contract_name, impl_name, impl_owner_name, impl_id 
       from   invalid_uninstalled_bindings
       order  by upper(contract_name), contract_name, upper(impl_name), impl_name
    </querytext>