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

diff --git a/gui/bweb/lib/Bweb.pm b/gui/bweb/lib/Bweb.pm
index 270328d5276f3e7a60f7c2204af51e20a54b98ce..aef9a87d9b6a660516395e2b6db90aeec71267dd 100644 (file)
--- 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 0977f6692d4cbdf8c0efc6a4c3025b40f9363d41..94a4e958e71e2f32e8bb1304e59fc2802621c42a 100644 (file)
--- 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