ebl fix cache create bug

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

diff --git a/gui/brestore/brestore.pl b/gui/brestore/brestore.pl
index b88177a9c2ff603f63c921745cdd457211dc288f..aa946332b86ce440be7639ff8890c887e18cdb97 100755 (executable)
--- a/gui/brestore/brestore.pl
+++ b/gui/brestore/brestore.pl
@@ -1285,7 +1285,6 @@ sub on_list_client_changed
 
     my $fs = $self->{bvfs};
     $fs->set_curjobids(@{$self->{CurrentJobIds}});
-    $fs->update_brestore_table(@{$self->{CurrentJobIds}});
     $fs->ch_dir($fs->get_root());
     # refresh_fileview will be done by list_backup_changed
 
@@ -2366,6 +2365,7 @@ sub set_curjobids
 {
     my ($self, @jobids) = @_;
     $self->{curjobids} = join(',', @jobids);
+    $self->update_brestore_table(@jobids);
 }
 
 sub ls_files
@@ -2727,6 +2727,8 @@ sub update_brestore_table
 {
     my ($self, @jobs) = @_;
 
+    $self->debug(\@jobs);
+
     foreach my $job (sort {$a <=> $b} @jobs)
     {
        my $query = "SELECT 1 FROM brestore_knownjobid WHERE JobId = $job";