X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=bin%2FBackupPC_ASA_BurnArchiveMedia;h=912e00facedea0ca4da274ba7f9281089f58f3c1;hp=86f20e142a5cb3a1520e503dd689a2bbaa836122;hb=ee72b16012de7b99df222310893aa0470da16ff1;hpb=488bb662f6d144d42376b3d14e9b1e438e00e6f8

diff --git a/bin/BackupPC_ASA_BurnArchiveMedia b/bin/BackupPC_ASA_BurnArchiveMedia
index 86f20e1..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=?");