* renamed getPackagesForSelection() to getInstallablePackagesForSelection()

  and changed the semantics to automatically exclude packages that are already
  installed

git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@1646 95ad53e4-c205-0410-b2fa-d234c58c8868

1 files changed, 7 insertions, 2 deletions

diff --git a/installer/OpenSLX/OSSetup/Engine.pm b/installer/OpenSLX/OSSetup/Engine.pm
index dd8d98d5..59057336 100644
--- a/installer/OpenSLX/OSSetup/Engine.pm
+++ b/installer/OpenSLX/OSSetup/Engine.pm
@@ -689,7 +689,7 @@ sub metaPackager
 	return $self->{'meta-packager'};
 }
 
-sub getPackagesForSelection
+sub getInstallablePackagesForSelection
 {
 	my $self   = shift;
 	my $selKey = shift;
@@ -698,8 +698,13 @@ sub getPackagesForSelection
 
 	my $selection = $self->{'distro-info'}->{selection}->{$selKey};
 	return if !$selection;
+	
+	my @pkgs = split m{\s+}, $selection->{packages};
+	my %installedPkgs;
+	@installedPkgs{ $self->{'packager'}->getInstalledPackages() } = ();
+	@pkgs = grep { !exists $installedPkgs{$_} } @pkgs;
 
-	return $selection->{packages};
+	return join ' ', @pkgs;
 }
 
 sub busyboxBinary