From: Eric Bollengier <eric@eb.homelinux.org>
Date: Tue, 5 Sep 2006 19:07:30 +0000 (+0000)
Subject: ebl  fix drive selection
X-Git-Tag: Release-2.0.0~503
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=076b2ade1d70e7582689e789594aa1d77af5798f;p=bacula%2Fbacula

ebl  fix drive selection


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

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();