add support for new modules load as described by GG.

1 files changed, 12 insertions, 0 deletions

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 5b5fb804f..efed8f480 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -727,6 +727,18 @@ sub afterInstallPackages($) {
     $o->SUPER::afterInstallPackages($o);
 }
 
+sub copyKernelFromDiskette {
+    my ($o) = @_;
+    $o->ask_warn('', _("Please insert the Boot floppy used in drive %s", $o->{blank}));
+    $o->SUPER::copyKernelFromDiskette();
+}
+
+sub updateModulesFromDiskette {
+    my ($o) = @_;
+    $o->ask_warn('', _("Please insert the Update Modules floppy in drive %s", $o->{updatemodules}));
+    $o->SUPER::updateModulesFromDiskette();
+}
+
 #------------------------------------------------------------------------------
 sub configureNetwork {
     my ($o, $first_time) = @_;