From 8dab6dd61006df0616c9589b85c104bb9d50c118 Mon Sep 17 00:00:00 2001
From: Eric Bollengier <eric@eb.homelinux.org>
Date: Sat, 30 Sep 2006 13:27:52 +0000
Subject: [PATCH] ebl  update label_barcode

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

diff --git a/gui/bweb/lib/Bweb.pm b/gui/bweb/lib/Bweb.pm
index 7716363ed4..6466b13536 100644
--- a/gui/bweb/lib/Bweb.pm
+++ b/gui/bweb/lib/Bweb.pm
@@ -2843,13 +2843,14 @@ sub update_slots
     my ($self) = @_;
 
     my $ach = CGI::param('ach') ;
-    unless ($ach =~ /^([\w\d\.-]+)$/) {
+    $ach = $self->ach_get($ach);
+    unless ($ach) {
 	return $self->error("Bad autochanger name");
     }
 
     print "<pre>";
     my $b = new Bconsole(pref => $self->{info},timeout => 60,log_stdout => 1);
-    $b->update_slots($ach);
+    $b->update_slots($ach->{name});
     print "</pre>\n" 
 }
 
-- 
2.39.2