X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=lib%2FBackupPC%2FSearch.pm;h=c72c54b14cbb79bb5355765827161e3c60df0d64;hp=ad27bb16afb2b75cdcbdac4d442baf9c6342c07a;hb=488bb662f6d144d42376b3d14e9b1e438e00e6f8;hpb=2c835fefb850a3d02add14e9e8aafe13e06a17bb

diff --git a/lib/BackupPC/Search.pm b/lib/BackupPC/Search.pm
index ad27bb1..c72c54b 100644
--- a/lib/BackupPC/Search.pm
+++ b/lib/BackupPC/Search.pm
@@ -398,6 +398,13 @@ print STDERR "## sort=". ($param->{'sort'} || 'no sort param') . " burn sql orde
 		LEFT OUTER JOIN archive_parts  ap ON ap.backup_part_id = p.id
 		LEFT OUTER JOIN archive_burned ab ON ab.archive_id = ap.archive_id
 		GROUP BY p.id,filename,b.date,age,p.size,p.part_nr
+	};
+
+	$sql .= qq{
+		HAVING count(ap.*) = 0
+	} unless $param->{scheduled};
+
+	$sql .= qq{
 		ORDER BY b.date,p.part_nr
 	};
 	my $sth = $dbh->prepare( $sql );
@@ -475,6 +482,11 @@ var max_file_size = $max_archive_file_size;
 	}
 
 	$retHTML .= "</table>";
+
+	$retHTML .= q{
+<input type=submit name="scheduled" value="Show scheduled parts">
+	} unless $param->{scheduled};
+
 	$retHTML .= "</form>";
       
 	return $retHTML;