From: Eric Bollengier <eric@eb.homelinux.org>
Date: Sat, 30 Sep 2006 13:27:52 +0000 (+0000)
Subject: ebl  update label_barcode
X-Git-Tag: Release-2.0.0~394
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=8dab6dd61006df0616c9589b85c104bb9d50c118;p=bacula%2Fbacula

ebl  update label_barcode


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

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" 
 }