From 057cd219ea373e1766e1e40550ad52be28ad20c0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 7 Jan 2001 14:41:46 +0000 Subject: (installPackages): don't take into account the time when prompting the user --- perl-install/install_steps_gtk.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index b9755b3aa..c76d93489 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -532,7 +532,8 @@ sub installPackages { local $my_gtk::grab = 1; my $name = pkgs::mediumDescr($o->{packages}, $medium); print "\a"; - $name !~ /Application/ || ($o->{useless_thing_accepted2} ||= $o->ask_from_list_('', formatAlaTeX(_(" + my $time = time(); + my $r = $name !~ /Application/ || ($o->{useless_thing_accepted2} ||= $o->ask_from_list_('', formatAlaTeX(_(" Warning Please read carefully the terms below. If you disagree with any @@ -560,10 +561,14 @@ documentation is usually forbidden. All rights to the components of the next CD media belong to their respective authors and are protected by intellectual property and copyright laws applicable to software programs. -")), [ __("Accept"), __("Refuse") ], "Accept") eq "Accept") and $o->ask_okcancel('', _("Change your Cd-Rom! +")), [ __("Accept"), __("Refuse") ], "Accept") eq "Accept"); + $r &&= $o->ask_okcancel('', _("Change your Cd-Rom! Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done. If you don't have it, press Cancel to avoid installation from this Cd-Rom.", $name)); + #- add the elapsed time (otherwise the predicted time will be rubbish) + $start_time += time() - $time; + $r; }; }; catch_cdie { $o->install_steps::installPackages($packages); } -- cgit v1.2.1