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 );
}
$retHTML .= "</table>";
+
+ $retHTML .= q{
+<input type=submit name="scheduled" value="Show scheduled parts">
+ } unless $param->{scheduled};
+
$retHTML .= "</form>";
return $retHTML;