X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=bin%2FBackupPC_ASA_BurnArchiveMedia;h=912e00facedea0ca4da274ba7f9281089f58f3c1;hp=24107cc5407c9c0f5bd9e6870720b441852e99ab;hb=397087352b124ac10a4b3a8496ce11dbbe5333eb;hpb=ffbf3b45b24613d268bbb64a901131612b86b4d6

diff --git a/bin/BackupPC_ASA_BurnArchiveMedia b/bin/BackupPC_ASA_BurnArchiveMedia
index 24107cc..912e00f 100755
--- a/bin/BackupPC_ASA_BurnArchiveMedia
+++ b/bin/BackupPC_ASA_BurnArchiveMedia
@@ -15,7 +15,7 @@ use File::Path;
 use Cwd qw/abs_path/;
 use Data::Dumper;
 
-my $debug = $ENV{DEBUG} || 1;
+my $debug = $ENV{DEBUG} || 0;
 # set this to 1 to prompt for DVD removal for each selected item.
 my $prompt_for_delete = shift @ARGV;
 $|=1;
@@ -113,6 +113,7 @@ sub dumpArchive2XML($$$)
 	my $backups_sql = q{
 		SELECT
 			backup_id,
+			backup_part_id,
 			host,
 			num,
 			date,
@@ -120,8 +121,7 @@ sub dumpArchive2XML($$$)
 			size
 		FROM archive_backup_parts
 		WHERE archive_id = ?
-		ORDER BY
-			hosts.name, shares.name, backups.num
+		ORDER BY backup_part_id
 	};
 
 	my $sth = $dbh->prepare("SELECT dvd_nr, total_size, note, username, date, id FROM archive WHERE dvd_nr=?");
@@ -324,7 +324,7 @@ my $sth_archive_backup_parts = $dbh->prepare( qq{
 		items,
 		filename
 	FROM archive_backup_parts
-	WHERE archive.dvd_nr = ?
+	WHERE dvd_nr = ?
 	ORDER BY backup_id, part_nr
 });
 
@@ -530,7 +530,6 @@ print "Recoding finished, exiting...\n";
 $sth->finish;
 $sth_archive_backup_parts->finish;
 $sth_archive_burned->finish;
-$sth_archive_backup_check->finish;
 $sth_archive_burned->finish;
 
 $dbh->disconnect;