From 889003117dd6d82b4a54ad798419e5ea67181628 Mon Sep 17 00:00:00 2001 From: Eric Bollengier Date: Sun, 10 Sep 2006 14:05:17 +0000 Subject: [PATCH] ebl fix drive= git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@3454 91ce42f0-d328-0410-95d8-f526ca767f89 --- gui/bweb/lib/Bconsole.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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"); -- 2.39.5