added BackupPC::View only_first option

[BackupPC.git] / bin / BackupPC_updatedb

diff --git a/bin/BackupPC_updatedb b/bin/BackupPC_updatedb
index e72ba3d..d28096c 100755 (executable)
--- a/bin/BackupPC_updatedb
+++ b/bin/BackupPC_updatedb
@@ -1,8 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
-#use lib "/data/backuppc/lib";
-use lib "/usr/share/backuppc/lib";
+use lib "/usr/local/BackupPC/lib";
 
 use DBI;
 use BackupPC::Lib;
@@ -552,7 +551,8 @@ warn "XXXX ",dump(@backups);
                );
                print $share_header unless ($opt{q});
 
-               my $files = BackupPC::View->new($bpc, $hostname, \@backups, 1);
+               my $files = BackupPC::View->new($bpc, $hostname, \@backups, { only_first => 1 });
+
                foreach my $share ($files->shareList($backupNum)) {
 
                        my $t = time();