From 9b77010c4ff36db450f0218a6198ec5fe7dc2179 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 15 Dec 2005 16:25:42 +0000 Subject: (acceptLicense) move it from install_steps_interactive.pm into any.pm so that it is availlable from within finish-install --- perl-install/install_steps_interactive.pm | 31 ------------------------------- 1 file changed, 31 deletions(-) (limited to 'perl-install/install_steps_interactive.pm') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 4bbc9d360..78898b8a9 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -68,37 +68,6 @@ varies from language to language).")) if $o->{locale}{lang} !~ /^en/ && !lang::l so the messages will be displayed in english during installation") if $ENV{LANGUAGE} eq 'C'; } } - -sub acceptLicense { - my ($o) = @_; - - $o->{release_notes} = join("\n\n", map { - my $f = install_any::getFile($_); - $f && cat__($f); - } 'release-notes.txt', 'release-notes.' . arch() . '.txt'); - - return if $o->{useless_thing_accepted}; - - my $r = $::testing ? 'Accept' : 'Refuse'; - - $o->ask_from_({ title => N("License agreement"), - icon => 'banner-license', - cancel => N("Quit"), - messages => formatAlaTeX(install_messages::main_license() . "\n\n\n" . install_messages::warning_about_patents()), - interactive_help_id => 'acceptLicense', - if_(!$::globetrotter, more_buttons => [ [ N("Release Notes"), sub { $o->ask_warn(N("Release Notes"), $o->{release_notes}) }, 1 ] ]), - callbacks => { ok_disabled => sub { $r eq 'Refuse' } }, - }, - [ { list => [ N_("Accept"), N_("Refuse") ], val => \$r, type => 'list', format => sub { translate($_[0]) } } ]) - or do { - if ($::globetrotter) { - run_program::run('killall', 'Xorg'); - exec("/sbin/reboot"); - } - install_any::ejectCdrom(); - $o->exit; - }; -} #------------------------------------------------------------------------------ sub selectKeyboard { -- cgit v1.2.1