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 bb701b570fcbcb627171382455c9051f4c12ca47..b52f9fd3cd17f72fb7dfdd75aadc77cfc02d0c9e 100644 (file)
--- 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();
 }