When installing a new package, it may not be known yet

package-updates/package-updates-lib.pl

@@ -294,12 +294,12 @@ sub updates_available
 return @updates_available_cache;
 }
 
-# package_install(package-name, [system])
+# package_install(package-name, [system], [new-install])
 # Install some package, either from an update system or from Webmin. Returns
 # a list of updated package names.
 sub package_install
 {
-my ($name, $system) = @_;
+my ($name, $system, $install) = @_;
 my @rv;
 my $pkg;
 
@@ -315,6 +315,11 @@ sub package_install
 		      sort { &compare_versions($b, $a) }
 			   &list_available(0);
 	}
+if (!$pkg && $install) {
+	# Assume that it will exist
+	$pkg = { 'system' => $system || $software::update_system,
+		 'name' => $name };
+	}
 if (!$pkg) {
 	print &text('update_efindpkg', $name),"<p>\n";
 	return ( );
@@ -358,12 +363,12 @@ sub package_install
 return @rv;
 }
 
-# package_install_multiple(&package-names, system)
+# package_install_multiple(&package-names, system, [new-install])
 # Install multiple packages, either from an update system or from Webmin.
 # Returns a list of updated package names.
 sub package_install_multiple
 {
-my ($names, $system) = @_;
+my ($names, $system, $install) = @_;
 my @rv;
 my $pkg;