From: Eric Bollengier <eric@eb.homelinux.org>
Date: Sun, 10 Sep 2006 14:05:17 +0000 (+0000)
Subject: ebl  fix drive=
X-Git-Tag: Release-2.0.0~463
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=889003117dd6d82b4a54ad798419e5ea67181628;p=bacula%2Fbacula

ebl  fix drive=


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

diff --git a/gui/bweb/lib/Bconsole.pm b/gui/bweb/lib/Bconsole.pm
index deebdc805d..d671ea631b 100644
--- a/gui/bweb/lib/Bconsole.pm
+++ b/gui/bweb/lib/Bconsole.pm
@@ -204,15 +204,13 @@ sub label_barcodes
     $arg{drive} = $arg{drive} || '0' ;
     $arg{pool} = $arg{pool} || 'Scratch';
 
-    my $cmd = "label barcodes pool=\"$arg{pool}\" storage=\"$arg{storage}\"";
+    my $cmd = "label barcodes drive=$arg{drive} pool=\"$arg{pool}\" storage=\"$arg{storage}\"";
 
     if ($arg{slots}) {
 	$cmd .= " slots=$arg{slots}";
     }
 
     $self->send("$cmd\n");
-    $self->expect_it('-re', '\[0\]\s*:');
-    $self->send("$arg{drive}\n");
     $self->expect_it('-re', '[?].+\)\s*:');
     my $res = $self->before();
     $self->send("yes\n");