From 2cbc6da39c1cf01a980d5b74933ea9191b1bfdaa Mon Sep 17 00:00:00 2001
From: Eric Bollengier <eric@eb.homelinux.org>
Date: Sat, 20 Jan 2007 10:08:34 +0000
Subject: [PATCH] ebl  Update Location from new labeled media

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

diff --git a/gui/bweb/lib/Bweb.pm b/gui/bweb/lib/Bweb.pm
index 53077ca908..fadbbe1b90 100644
--- a/gui/bweb/lib/Bweb.pm
+++ b/gui/bweb/lib/Bweb.pm
@@ -3030,6 +3030,19 @@ sub label_barcodes
 		       slots => $slots) ;
     $b->close();
     print "</pre>";
+
+    $self->dbh_do("
+  UPDATE Media 
+       SET LocationId =   (SELECT LocationId 
+                             FROM Location 
+                            WHERE Location = '$arg->{ach}'),
+
+     WHERE Media.PoolId = (SELECT PoolId 
+                             FROM Pool
+                            WHERE Name = 'Scratch')
+       AND LocationId = 0
+");
+
 }
 
 sub purge
-- 
2.39.5