From c69221ee293219246822ef8d10748096373392ef Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Mon, 14 Feb 2005 18:57:35 +0000 Subject: - Copy complete $printer structure for installation records (all irrelevant was already removed by printer::printerdrake::final_cleanup($printer), called in install_steps_interactive.pm at the end of the "Summary" step. --- perl-install/install_any.pm | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index f9490306c..17f2f8f08 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -1047,14 +1047,7 @@ sub g_auto_install { exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(locale authentication mouse netc timezone superuser intf keyboard users partitioning isUpgrade manualFstab nomouseprobe crypto security security_user libsafe netcnx useSupermount autoExitInstall X services); #- TODO modules bootloader - if ($::o->{printer}) { - $o->{printer}{$_} = $::o->{printer}{$_} foreach qw(SPOOLER DEFAULT BROWSEPOLLADDR BROWSEPOLLPORT MANUALCUPSCONFIG); - $o->{printer}{configured} = {}; - foreach my $queue (keys %{$::o->{printer}{configured}}) { - my $val = $::o->{printer}{configured}{$queue}{queuedata}; - exists $val->{$_} and $o->{printer}{configured}{$queue}{queuedata}{$_} = $val->{$_} foreach keys %{$val || {}}; - } - } + $o->{printer} = $::o->{printer} if $::o->{printer}; local $o->{partitioning}{auto_allocate} = !$b_replay; $o->{autoExitInstall} = !$b_replay; -- cgit v1.2.1