From 155c2889f362fe6434255212198419b08968e609 Mon Sep 17 00:00:00 2001
From: Eric Bollengier <eric@eb.homelinux.org>
Date: Fri, 26 Oct 2007 15:33:23 +0000
Subject: [PATCH] ebl  Fix multiple volume pruning

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@5812 91ce42f0-d328-0410-95d8-f526ca767f89
---
 gui/bweb/lib/Bweb.pm | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/gui/bweb/lib/Bweb.pm b/gui/bweb/lib/Bweb.pm
index bb701b570f..b52f9fd3cd 100644
--- a/gui/bweb/lib/Bweb.pm
+++ b/gui/bweb/lib/Bweb.pm
@@ -3433,11 +3433,13 @@ sub prune
 
     my $b = new Bconsole(pref => $self->{info}, timeout => 60);
 
-    $self->display({
-	content => $b->prune_volume(@volume),
-	title => "Prune media",
-	name => "prune volume=" . join(' volume=', @volume),
-    }, "command.tpl");	
+    foreach my $v (@volume) {
+	$self->display({
+	    content => $b->prune_volume(@volume),
+	    title => "Prune volume",
+	    name => "prune volume=$v",
+	}, "command.tpl");
+    }
 
     $b->close();
 }
-- 
2.39.5