Make refresh more selective

diff --git a/package-updates/lang/en b/package-updates/lang/en
index 03be72f..a7a6e98 100644 (file)
--- a/package-updates/lang/en
+++ b/package-updates/lang/en
@@ -92,7 +92,7 @@ refresh_title=Refreshing Packages
 refresh_clearing=Clearing package caches ..
 refresh_done=.. done
 refresh_available=Re-fetching available packages ..
-refresh_done2=.. found $1 in total
+refresh_done3=.. found $1 possible updates
 
 view_title=Package Details
 view_header=Updatable package information

diff --git a/package-updates/package-updates-lib.pl b/package-updates/package-updates-lib.pl
index c97b2db..04c3d1d 100644 (file)
--- a/package-updates/package-updates-lib.pl
+++ b/package-updates/package-updates-lib.pl
@@ -283,6 +283,7 @@ sub package_install
 my ($name, $system) = @_;
 my @rv;
 my $pkg;
+
 # First get from list of updates
 ($pkg) = grep { $_->{'update'} eq $name &&
                ($_->{'system'} eq $system || !$system) }
@@ -353,6 +354,8 @@ my ($nocache) = @_;
 my @rv;
 my @current = &list_current($nocache);
 if (&supports_updates_available()) {
+       # Software module supplies a function that can list just packages
+       # that need updating
        my %currentmap;
        foreach my $c (@current) {
                $currentmap{$c->{'name'},$c->{'system'}} ||= $c;

diff --git a/package-updates/update.cgi b/package-updates/update.cgi
index 22d4dfc..69496d9 100755 (executable)
--- a/package-updates/update.cgi
+++ b/package-updates/update.cgi
@@ -17,8 +17,8 @@ if ($in{'refresh'}) {
 
        # Force re-fetch
        print $text{'refresh_available'},"<br>\n";
-       @avail = &list_available();
-       print &text('refresh_done2', scalar(@avail)),"<p>\n";
+       @avail = &list_possible_updates();
+       print &text('refresh_done3', scalar(@avail)),"<p>\n";
 
        &webmin_log("refresh");
        &ui_print_footer($redir, $text{'index_return'});