From ae57ce3e0f7306c7d99ff680122f10b3d204c054 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 16 May 2009 09:40:28 -0700
Subject: [PATCH] Deleting bundles.

---
 lib/WebGUI/FilePump/Admin.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/FilePump/Admin.pm b/lib/WebGUI/FilePump/Admin.pm
index 55828d957..43a1434e8 100644
--- a/lib/WebGUI/FilePump/Admin.pm
+++ b/lib/WebGUI/FilePump/Admin.pm
@@ -177,7 +177,10 @@ sub www_manage {
     my $rows   = '';
     my $getABundle = WebGUI::FilePump::Bundle->getAllIterator($session,{ orderBy => 'bundleName' } );
     while (my $bundle = $getABundle->()) {
-        $rows .= sprintf '<tr><td>&nbsp;</td><td>%s</td>', $bundle->get('bundleName');
+        $rows .= sprintf '<tr><td>%s</td><td>%s</td>',
+                 $session->icon->delete('op=filePump;func=deleteBundle;bundleId='.$bundle->getId),
+                 $bundle->get('bundleName')
+               ;
     }
     my $output = sprintf <<EOHTML, $i18n->get('bundle name'), $rows;
 <table border="1">