my $dbh = DBI->connect($Conf{SearchDSN}, $Conf{SearchUser}, "", { RaiseError => 1, AutoCommit => 0 } );
BackupPC::CGI::Lib::NewRequest();
- $cont = Dumper(\%In);
+# $cont = Dumper(\%In);
if (!defined($In{submitBurner})) {
$title = eval(q{ ${h1($Lang->{Burn_media})}});
$cont = Dumper(%In);
$cont .= q{
Archived following backups parts:
- } . join(", ", @selected_backup_parts) . q{
+ } . join(", ", @selected_backup_parts);
+
+ my $sth = $dbh->prepare(qq{
+ select
+ filename,
+ part_nr,
+ TIMESTAMP 'epoch' + date * INTERVAL '1 second' as date,
+ size
+ from archive_backup_parts
+ where dvd_nr = ?
+ order by backup_part_id
+ });
+ $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{
<br/>with total size of
<b>} . unit($total_size)
. q{</b>
} . $In{'note'} . q{
</div>
};
+
+
}
}