From 076b2ade1d70e7582689e789594aa1d77af5798f Mon Sep 17 00:00:00 2001
From: Eric Bollengier <eric@eb.homelinux.org>
Date: Tue, 5 Sep 2006 19:07:30 +0000
Subject: [PATCH] ebl  fix drive selection

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@3414 91ce42f0-d328-0410-95d8-f526ca767f89
---
 gui/bweb/lib/Bconsole.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gui/bweb/lib/Bconsole.pm b/gui/bweb/lib/Bconsole.pm
index 101a65bc6e..fe6545196b 100644
--- a/gui/bweb/lib/Bconsole.pm
+++ b/gui/bweb/lib/Bconsole.pm
@@ -198,7 +198,7 @@ sub send_cmd_with_drive
 	return '';
     }
     $self->send("$cmd\n");
-    $self->expect_it('-re', '\[0\]\s*:');
+    $self->expect_it('-re', qr/:/); # wait for drive input
 
     $self->send("$drive\n");
     $self->expect_it('-re', '[0-9]');
@@ -229,7 +229,7 @@ sub label_barcodes
     }
 
     $self->send("$cmd\n");
-    $self->expect_it('-re', '\[0\]\s*:');
+    $self->expect_it('-re', ':'); # wait for drive input
     $self->send("$arg{drive}\n");
     $self->expect_it('-re', '[?].+\)\s*:');
     my $res = $self->before();
-- 
2.39.5