r159@klaxLaptop: klax | 2005-10-07 13:14:47 +0200

 - switched from hardcoded sql's to $dbh->prepare() & execute()
 - various bugfixes

git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/BackupPC/trunk@146 8392b6e1-25fa-0310-8288-cc32f8e212ea

diff --git a/lib/BackupPC/CGI/BurnMedia.pm b/lib/BackupPC/CGI/BurnMedia.pm
index 6f47cc1..04a5557 100644 (file)
--- a/lib/BackupPC/CGI/BurnMedia.pm
+++ b/lib/BackupPC/CGI/BurnMedia.pm
@@ -39,11 +39,14 @@ EOF
 
                my $total_size = 0;
                
-               foreach my $key(keys(%In)) {
-                       if ($key =~ m/^fcb([0-9]+)_([0-9]+)_([0-9]+)$/gi) {
-                               my ($host_id, $backup_num, $backup_id) = ($1,$2,$3);
-                               push @selected_backup_ids, $backup_id;
-                               $total_size += getGzipSize($host_id, $backup_num);
+               foreach my $key(keys(%In))
+               {
+                       if ($key =~ m/fcb([0-9]+)_([0-9]+)/gi)
+                       {
+                               my $hostID = $1;
+                               my $backupnum = $2;
+                               push(@selectedBackups, ($hostID, $backupnum));
+                               $total_size += BackupPC::SearchLib::getGzipSize($hostID, $backupnum);
                        }
                }
 
@@ -72,6 +75,7 @@ EOF
                        $cont .= "Selected backups exceed max archive size.";
                } else {
 
+
                        foreach my $backup_id (@selected_backup_ids) {
 
                                # link backups with archive
@@ -96,6 +100,7 @@ EOF
                                        </div>
                                };
                        }
+                       $dbh->commit();
                }
        }