ebl fix

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

diff --git a/gui/brestore/brestore.pl b/gui/brestore/brestore.pl
index 9c0b05ee59d5c8fac581ce2cbab0c8546340c536..d5c33a33bba97cfeae2b28dc5caea6f8ca81282b 100755 (executable)
--- a/gui/brestore/brestore.pl
+++ b/gui/brestore/brestore.pl
@@ -1277,6 +1277,10 @@ use File::Temp qw/tempfile/;
 sub on_go_button_clicked 
 {
     my $self = shift;
+    unless (scalar(@{$self->{restore_list}->{data}})) {
+       new DlgWarn("No file to restore");
+       return 0;
+    }
     my $bsr = $self->create_filelist();
     my ($fh, $filename) = tempfile();
     $fh->print($bsr);