--- trunk/lib/BackupPC/CGI/BurnMedia.pm	2005/09/23 15:04:37	136
+++ trunk/lib/BackupPC/CGI/BurnMedia.pm	2005/09/29 08:46:13	137
@@ -15,7 +15,7 @@
 	my $subtitle;
 	my @files;
 
-	my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
+	my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 0 } );
 
 	BackupPC::CGI::Lib::NewRequest();
 #	$cont = Dumper(%In);
@@ -47,6 +47,7 @@
 			}
 		}
 
+
 		# kreiraj arhivu
 		my $kveri = q{
 						INSERT INTO archive
@@ -57,7 +58,7 @@
 
 
 		$dbh->do($kveri);					 
-
+		
 		for (my $i = 0; $i <= @selectedBackups /2; $i++)
 		{
 			my $host = $selectedBackups[$i*2];
@@ -76,18 +77,34 @@
 			$dbh->do($kveri);
 		}
 
+		my $kveri = q{
+						INSERT INTO workflow_step(step_id, code, next_step, stop)
+						VALUES
+						(
+							nextVal('workflow_step_id_seq'), 
+							'start',
+							NULL,
+							false
+						);						
+					 };
+		$dbh->do($kveri);
+
 
 		# insertaj u workflows
 		my $kveri = q{
-						INSERT INTO workflows
+						INSERT INTO workflows( id, step_id, start, stop, username, archive_id	, running)
 						SELECT
-							(SELECT step_id FROM workflow_step WHERE code='start' LIMIT 1),
+							nextVal('workflows_id_seq'),
+							(SELECT currVal('workflow_step_id_seq')),
 							NOW(),
 							NULL,
 							'dummy',
 							(SELECT last_value FROM archive_id_seq),
-							true
+							true;
 					};
+		$dbh->do($kveri);
+	
+		$dbh->commit();
 	}
       
 	Header($Lang->{Burn_media}, "", 1, "", $cont);