+ } . join(", ", @selected_backup_parts);
+
+ my $sth = $dbh->prepare(qq{
+ select
+ filename,
+ part_nr,
+ TIMESTAMP 'epoch' + a.date * INTERVAL '1 second' as date,
+ size
+ from archive_backup_parts a
+ join archive on archive_id = archive.id
+ where dvd_nr = ?
+ });
+ $sth->execute( $dvd_nr );
+ $cont .= '<table border=1>';
+ while( my $row = $sth->fetchrow_arrayref ) {
+ $cont .= '<tr><td>' . join('</td><td>', @$row) . '</tr><tr>';
+ }
+ $cont .= '</table>';
+
+ $cont .= q{