Index: openacs-4/packages/bug-tracker/www/admin/component-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/admin/component-delete.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/bug-tracker/www/admin/component-delete.tcl	5 Feb 2003 11:14:01 -0000	1.1
@@ -0,0 +1,11 @@
+ad_page_contract {
+    Delete component
+} {
+    component_id:integer
+}
+
+db_dml delete_component {
+    delete from bt_components where component_id = :component_id
+}
+
+ad_returnredirect .
\ No newline at end of file
Index: openacs-4/packages/bug-tracker/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/admin/index.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/bug-tracker/www/admin/index.adp	3 May 2002 16:29:59 -0000	1.1
+++ openacs-4/packages/bug-tracker/www/admin/index.adp	5 Feb 2003 11:14:05 -0000	1.2
@@ -4,17 +4,17 @@
 
 <table cellspacing="0" cellpadding="4" border="0">
   <tr>
-    <td colspan="2">
+    <td colspan="3">
     </td>
-    <td>
+    <th>
       Edit
-    </td>
-    <td>
+    </th>
+    <th>
       Delete
-    </td>
+    </th>
   </tr>
   <tr bgcolor="#666666">
-    <td colspan="2">
+    <td colspan="3">
       <font color=white><b>@project_name@</b></font>
     </td>
     <td align="center">
@@ -35,14 +35,17 @@
       </else>
     </td>
     <td align="center">
+      &nbsp;
+    </td>
+    <td align="center">
       <a href="@project_maintainer_edit_url@"><img src="../graphics/Edit16.gif" width="16" height="16" border="0" alt="Edit"></a>
     </td>
     <td align="center">
       &nbsp;
     </td>
   </tr>
   <tr bgcolor="#cccccc">
-    <td colspan="2">
+    <td colspan="3">
       Project versions
     </td>
     <td align="center">
@@ -53,7 +56,7 @@
     </td>
   </tr>
   <tr bgcolor="#cccccc">
-    <td colspan="2">
+    <td colspan="3">
       Project permissions
     </td>
     <td align="center">
@@ -67,7 +70,7 @@
 
 <!--
   <tr bgcolor="#cccccc">
-    <td colspan="2">
+    <td colspan="3">
       Priority codes
     </td>
     <td align="center">
@@ -91,7 +94,7 @@
 -->
 
   <tr bgcolor="#999999">
-    <td colspan="4" align="center">
+    <td colspan="5" align="center">
       <font color=white><b>Components</b></font>
     </td>
   </tr>
@@ -108,25 +111,28 @@
         <if @components.maintainer@ not nil>
           <a href="@components.maintainer_url@" title="Email: @components.maintainer_email@">@components.maintainer_first_names@ @components.maintainer_last_name@</a>
         </if>
-        <else><i>No maintainer of this component</i></else>
+        <else><i>No maintainer</i></else>
       </td>
+      <td align="right">
+        <if @components.view_bugs_url@ not nil><a href="@components.view_bugs_url@" title="View the bugs for this component"></if>@components.num_bugs@ <if @components.num_bugs@ eq 1>bug</if><else>bugs</else><if @components.view_bugs_url@ not nil></a></if>
+      </td>
       <td align="center">
         <a href="@components.edit_url@"><img src="../graphics/Edit16.gif" width="16" height="16" border="0" alt="Edit"></a>
       </td>
       <td align="center">
-        <if @componenents.delete_url@ not nil>
+        <if @components.delete_url@ not nil>
           <a href="@components.delete_url@"><img src="../graphics/Delete16.gif" width="16" height="16" border="0" alt="Delete"></a>
         </if>
       </td>
     </tr>
   </multiple>
   <if @components:rowcount@ eq 0>
     <tr bgcolor="#cccccc">
-      <td colspan="4"><i>No components</i></td>
+      <td colspan="5"><i>No components</i></td>
     </tr>
   </if>
   <tr bgcolor="#bbbbbb">
-    <td colspan="4"><a href="@component_add_url@">Create New Component</a></td>
+    <td colspan="5"><a href="@component_add_url@">Create New Component</a></td>
   </tr>
 </table>
 
Index: openacs-4/packages/bug-tracker/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/admin/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/bug-tracker/www/admin/index.tcl	10 Sep 2002 22:22:28 -0000	1.3
+++ openacs-4/packages/bug-tracker/www/admin/index.tcl	5 Feb 2003 11:14:05 -0000	1.4
@@ -31,21 +31,26 @@
 set severity_codes_edit_url "severity-codes"
 set priority_codes_edit_url "priority-codes"
 
-db_multirow -extend { edit_url delete_url maintainer_url } components components { 
+db_multirow -extend { edit_url delete_url maintainer_url view_bugs_url } components components { 
     select c.component_id,
            c.component_name,
            c.description,
            c.maintainer,
            u.first_names as maintainer_first_names,
            u.last_name as maintainer_last_name,
-           u.email as maintainer_email
+           u.email as maintainer_email,
+           (select count(*) from bt_bugs where component_id = c.component_id) as num_bugs
     from   bt_components c left outer join 
            cc_users u on (u.user_id = c.maintainer)
     where  c.project_id = :package_id
-    order  by component_name
+    order  by upper(component_name)
 } {
     set edit_url "component-ae?[export_vars -url { component_id }]"
-    set delete_url "component-delete?[export_vars -url { component_id }]"
+    if { $num_bugs == 0 } {
+        set delete_url "component-delete?[export_vars -url { component_id }]"
+    } else {
+        set view_bugs_url "../?[export_vars { { filter.component_id $component_id } }]"
+    }
     set maintainer_url [acs_community_member_url -user_id $maintainer]
 }