From abcfed9ed138508cba2fa62a14d2564797604405 Mon Sep 17 00:00:00 2001
From: Eric Bollengier <eric@eb.homelinux.org>
Date: Fri, 1 Dec 2006 14:12:54 +0000
Subject: [PATCH] ebl  fix

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@3725 91ce42f0-d328-0410-95d8-f526ca767f89
---
 gui/brestore/brestore.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gui/brestore/brestore.pl b/gui/brestore/brestore.pl
index 9c0b05ee59..d5c33a33bb 100755
--- 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);
-- 
2.39.5