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 );
my $param = shift;
my $max_archive_size = $Conf{ArchiveMediaSize} || die "no ArchiveMediaSize";
- my $max_archive_file_size = $Conf{ArchiveChunkSize} || die "no MaxFileInSize";
my $retHTML .= qq|
<form id="forma" method="POST" action="$MyURL?action=burn">
<script type="text/javascript">
var media_size = $max_archive_size ;
-var max_file_size = $max_archive_file_size;
</script>
|;
}
$retHTML .= "</table>";
+
+ $retHTML .= q{
+<input type=submit name="scheduled" value="Show scheduled parts">
+ } unless $param->{scheduled};
+
$retHTML .= "</form>";
return $retHTML;