move create_transaction() and prepare_transaction() from urpm.pm into urpm/install.pm

1 files changed, 0 insertions, 38 deletions

diff --git a/urpm.pm b/urpm.pm
index e0c5a10d..16177d4f 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -2210,32 +2210,6 @@ sub resolve_dependencies {
     $need_restart;
 }
 
-sub create_transaction {
-    my ($urpm, $state, %options) = @_;
-
-    if ($urpm->{parallel_handler} || !$options{split_length} ||
-	keys %{$state->{selected}} < $options{split_level}) {
-	#- build simplest transaction (no split).
-	$urpm->build_transaction_set(undef, $state, split_length => 0);
-    } else {
-	my $db;
-
-	if ($options{rpmdb}) {
-	    $db = new URPM;
-	    $db->parse_synthesis($options{rpmdb});
-	} else {
-	    $db = db_open_or_die($urpm, $urpm->{root});
-	}
-
-	my $sig_handler = sub { undef $db; exit 3 };
-	local $SIG{INT} = $sig_handler;
-	local $SIG{QUIT} = $sig_handler;
-
-	#- build transaction set...
-	$urpm->build_transaction_set($db, $state, split_length => $options{split_length});
-    }
-}
-
 #- get the list of packages that should not be upgraded or installed,
 #- typically from the inst.list or skip.list files.
 sub get_packages_list {
@@ -2618,18 +2592,6 @@ sub download_packages_of_distant_media {
     1;
 }
 
-#- prepare transaction.
-sub prepare_transaction {
-    my ($_urpm, $set, $list, $sources, $transaction_list, $transaction_sources) = @_;
-
-    foreach my $id (@{$set->{upgrade}}) {
-	foreach (0..$#$list) {
-	    exists $list->[$_]{$id} and $transaction_list->[$_]{$id} = $list->[$_]{$id};
-	}
-	exists $sources->{$id} and $transaction_sources->{$id} = $sources->{$id};
-    }
-}
-
 #- extract package that should be installed instead of upgraded,
 #- sources is a hash of id -> source rpm filename.
 sub extract_packages_to_install {