Make required modules selection clearer

diff --git a/cpan/index.cgi b/cpan/index.cgi
index bc0eda6..d4e8ef5 100755 (executable)
--- a/cpan/index.cgi
+++ b/cpan/index.cgi
@@ -110,10 +110,15 @@ if (@recs) {
        print &ui_form_start("download.cgi");
        print &ui_hidden("source", 3),"\n";
        print "$text{'index_recs'}<p>\n";
-       print &ui_select("cpan", [ map { $_->[0] } @recs ],
-                [ map { [ $_->[0], &text('index_user',
-                               $_->[0], $_->[1]->{'desc'}) ] } @allrecs ],
-                5, 1),"<br>\n";
+       print &ui_multi_select("cpan",
+                [ map { [ $_->[0],
+                          &text('index_user', $_->[0], $_->[1]->{'desc'}) ] }
+                      @recs ],
+                [ map { [ $_->[0],
+                          &text('index_user', $_->[0], $_->[1]->{'desc'}) ] }
+                      @allrecs ],
+                20, 1, 0,
+                $text{'index_allmods'}, $text{'index_wantmods'}, 300),"<br>\n";
        print &ui_submit($text{'index_recsok'});
        print &ui_form_end();
        }

diff --git a/cpan/lang/en b/cpan/lang/en
index 8685d9f..ca5ff0a 100644 (file)
--- a/cpan/lang/en
+++ b/cpan/lang/en
@@ -26,6 +26,8 @@ index_none=No installed Perl modules were found on your system.
 index_tabmods=Existing modules
 index_tabinstall=Install module
 index_tabsuggest=Suggested modules
+index_allmods=All modules used by Webmin
+index_wantmods=Modules to install
 
 download_err=Failed to install module
 download_elocal=No local file given