--- trunk/lib/BackupPC/View.pm	2005/06/22 19:12:42	2
+++ trunk/lib/BackupPC/View.pm	2005/07/31 20:53:40	34
@@ -49,7 +49,7 @@
 
 sub new
 {
-    my($class, $bpc, $host, $backups) = @_;
+    my($class, $bpc, $host, $backups, $only_one) = @_;
     my $m = bless {
         bpc       => $bpc,		# BackupPC::Lib object
         host      => $host,		# host name
@@ -65,6 +65,7 @@
 	$m->{backups}[$i]{level} = $m->{backups}[$i]{type} eq "incr" ? 1 : 0;
     }
     $m->{topDir} = $m->{bpc}->TopDir();
+    $m->{only_one} = $only_one;
     return $m;
 }
 
@@ -104,6 +105,8 @@
 	#
 	next if ( $m->{backups}[$i]{level} >= $level );
 
+	last if ( $m->{only_one} && $i != $m->{idx} );
+
 	$level = $m->{backups}[$i]{level};
 	$backupNum = $m->{backups}[$i]{num};
 	push(@{$m->{mergeNums}}, $backupNum);