pre-seed with on disk backups

[BackupPC.git] / lib / BackupPC / Search.pm

diff --git a/lib/BackupPC/Search.pm b/lib/BackupPC/Search.pm
index a6f01ff..7f75add 100644 (file)
--- a/lib/BackupPC/Search.pm
+++ b/lib/BackupPC/Search.pm
@@ -371,6 +371,8 @@ sub host_backup_nums {
        # and inc_size < 0 and size > 0 and not inc_deleted
 
        my $all_backup_numbers;
+       # pre-seed with on disk backups
+       $all_backup_numbers->{ $_->{num} }++ foreach $bpc->BackupInfoRead($host);
 
        while( my $row = $sth->fetchrow_hashref ) {
 warn "# row ",dump $row;