order by backup_part_id

[BackupPC.git] / lib / BackupPC / CGI / BurnMedia.pm

diff --git a/lib/BackupPC/CGI/BurnMedia.pm b/lib/BackupPC/CGI/BurnMedia.pm
index 1a3a53a..c24a530 100644 (file)
--- a/lib/BackupPC/CGI/BurnMedia.pm
+++ b/lib/BackupPC/CGI/BurnMedia.pm
@@ -18,7 +18,7 @@ sub action() {
        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);
@@ -100,7 +100,27 @@ EOF
 
                        $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' + a.date * INTERVAL '1 second' as date,
+                                       size
+                               from archive_backup_parts a
+                               join archive on archive_id = archive.id
+                               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>
@@ -110,6 +130,8 @@ EOF
                        } . $In{'note'} . q{
                                </div>
                        };
+
+
                }
        }