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 101a65bc6e304a02060df3af8eef7182cced5cfa..fe6545196bdcfdc6347af0c57a59791e650eb7b9 100644 (file)
--- 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();