From e28f59c680db988279b936acc3272b1e4aa3c1e9 Mon Sep 17 00:00:00 2001
From: Eric Bollengier <eric@eb.homelinux.org>
Date: Tue, 3 Feb 2009 15:10:28 +0000
Subject: [PATCH] ebl  Add pool parameter to label barcode process

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@8416 91ce42f0-d328-0410-95d8-f526ca767f89
---
 gui/bweb/lib/Bweb.pm   | 6 +++---
 gui/bweb/technotes-3.0 | 2 ++
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/gui/bweb/lib/Bweb.pm b/gui/bweb/lib/Bweb.pm
index 270328d527..aef9a87d9b 100644
--- a/gui/bweb/lib/Bweb.pm
+++ b/gui/bweb/lib/Bweb.pm
@@ -4656,7 +4656,7 @@ sub label_barcodes
     my ($self) = @_ ;
     $self->can_do('r_autochanger_mgnt');
 
-    my $arg = $self->get_form('ach', 'slots', 'drive');
+    my $arg = $self->get_form('ach', 'slots', 'drive', 'pool');
 
     unless ($arg->{ach}) {
 	return $self->error("Can't find autochanger name");
@@ -4680,13 +4680,13 @@ sub label_barcodes
 	$slots_sql = " AND Slot IN ($slots) ";
 	$t += 60*scalar( @{ $arg->{slots} }) ;
     }
-
+    my $pool = $arg->{pool} || 'Scratch';
     my $b = new Bconsole(pref => $self->{info}, timeout => $t,log_stdout => 1);
     print "<h1>This command can take long time, be patient...</h1>";
     print "<pre>" ;
     $b->label_barcodes(storage => $storage,
 		       drive => $arg->{drive},
-		       pool  => 'Scratch',
+		       pool  => $pool,
 		       slots => $slots) ;
     $b->close();
     print "</pre>";
diff --git a/gui/bweb/technotes-3.0 b/gui/bweb/technotes-3.0
index 0977f6692d..94a4e958e7 100644
--- a/gui/bweb/technotes-3.0
+++ b/gui/bweb/technotes-3.0
@@ -1,3 +1,5 @@
+03Feb09
+ebl  Add pool parameter to label barcode process
 20Jan09
 ebl  Use default age in missing job view
 19Jan09
-- 
2.39.5