From 4c1a7a0e22189e75e46eeec4ccc9f8decb5f49a1 Mon Sep 17 00:00:00 2001
From: Eric Bollengier <eric@eb.homelinux.org>
Date: Thu, 25 Jan 2007 22:11:16 +0000
Subject: [PATCH] ebl  update_slots after ejecting media

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@4044 91ce42f0-d328-0410-95d8-f526ca767f89
---
 gui/bweb/cgi/bweb.pl | 9 ++++++++-
 gui/bweb/lib/Bweb.pm | 4 ++++
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/gui/bweb/cgi/bweb.pl b/gui/bweb/cgi/bweb.pl
index d4a8cf573a..6b3dd7d10a 100755
--- a/gui/bweb/cgi/bweb.pl
+++ b/gui/bweb/cgi/bweb.pl
@@ -220,8 +220,15 @@ if ($action eq 'begin') {		# main display
     $bweb->help_extern_compute();
 
 } elsif ($action eq 'extern') {
-    $bweb->eject_media();
+    print "<div style='float: left;'>";
+    my @achs = $bweb->eject_media();
+    for my $ach (@achs) {
+        CGI::param('ach', $ach);
+	$bweb->update_slots();
+    }
+    print "</div><div style='float: left;margin-left: 20px;'>";
     $bweb->move_media();
+    print "</div>";
 
 } elsif ($action eq 'move_email') {
     $bweb->move_email();
diff --git a/gui/bweb/lib/Bweb.pm b/gui/bweb/lib/Bweb.pm
index d04a8b9e23..49e919a848 100644
--- a/gui/bweb/lib/Bweb.pm
+++ b/gui/bweb/lib/Bweb.pm
@@ -2618,9 +2618,11 @@ WHERE JobStatus IN ('C','R','B','e','D','F','S','m','M','s','j','c','d','t','p')
 		   "running_job.tpl") ;
 }
 
+# return the autochanger list to update
 sub eject_media
 {
     my ($self) = @_;
+    my %ret; 
     my $arg = $self->get_form('jmedias');
 
     unless ($arg->{jmedias}) {
@@ -2643,6 +2645,7 @@ WHERE Media.VolumeName IN ($arg->{jmedias})
     foreach my $vol (values %$all) {
 	my $a = $self->ach_get($vol->{location});
 	next unless ($a) ;
+	$ret{$vol->{location}} = 1;
 
 	unless ($a->{have_status}) {
 	    $a->status();
@@ -2656,6 +2659,7 @@ WHERE Media.VolumeName IN ($arg->{jmedias})
 	    print "err</br>";
 	}
     }
+    return keys %ret;
 }
 
 sub move_email
-- 
2.39.2