From: Eric Bollengier <eric@eb.homelinux.org>
Date: Fri, 26 Oct 2007 15:33:23 +0000 (+0000)
Subject: ebl  Fix multiple volume pruning
X-Git-Tag: Release-3.0.0~2329
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=155c2889f362fe6434255212198419b08968e609;p=bacula%2Fbacula

ebl  Fix multiple volume pruning


git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@5812 91ce42f0-d328-0410-95d8-f526ca767f89
---

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();
 }