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"
+        }
+    }