added dvd_nr to archive_backup_parts

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

diff --git a/lib/BackupPC/Search.pm b/lib/BackupPC/Search.pm
index ad27bb1..c72c54b 100644 (file)
--- 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;