From 1ad5ae30debf935221d2a2bb36289a87cb604a18 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 28 Jan 2011 19:55:43 +0100
Subject: [PATCH] show parts archived using view

---
 lib/BackupPC/CGI/BurnMedia.pm | 25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

diff --git a/lib/BackupPC/CGI/BurnMedia.pm b/lib/BackupPC/CGI/BurnMedia.pm
index 1a3a53a..cabd592 100644
--- 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,26 @@ 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 = ?
+			});
+			$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 +129,8 @@ EOF
 			} . $In{'note'} . q{
 				</div>
 			};
+
+
 		}
 	}
 
-- 
2.20.1