diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-09 09:02:47 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-09 09:02:47 +0000 |
| commit | 1d3ac921d66022bb6e19a96dce95472cc31f0987 (patch) | |
| tree | 4da18678cee71134f6cec6004f0b41afe6d25145 /perl-install/install_steps_interactive.pm | |
| parent | db4013c2a40eaeb3752cc69623037e4bb274693b (diff) | |
| download | drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar.gz drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar.bz2 drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar.xz drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index b2b42036c..70090a875 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -266,7 +266,7 @@ name and directory should be used for this queue?"), } eval { modules::unload("lp") }; -# @port =("lp0", "lp1", "lp2"); +#- @port =("lp0", "lp1", "lp2"); $o->{printer}{DEVICE} = $port[0] if $port[0]; @@ -275,7 +275,7 @@ name and directory should be used for this queue?"), [_("Printer Device:")], [{val => \$o->{printer}{DEVICE}, list => \@port }], ); - #TAKE A GOODDEFAULT TODO + #-TAKE A GOODDEFAULT TODO } elsif ($o->{printer}{TYPE} eq "REMOTE") { return if !$o->ask_from_entries_ref(_("Remote lpd Printer Options"), @@ -348,7 +348,7 @@ wish to access and any applicable user name and password."), my %db_entry = %{$printer::thedb{$o->{printer}{DBENTRY}}}; - #paper size conf + #-paper size conf $o->{printer}{PAPERSIZE} = $o->ask_from_list_(_("Paper Size"), _("Paper Size"), @@ -356,7 +356,7 @@ wish to access and any applicable user name and password."), $o->{printer}{PAPERSIZE} ); - #resolution size conf + #-resolution size conf my @list_res = @{$db_entry{RESOLUTION}}; my @res = map { "${$_}{XDPI}x${$_}{YDPI}" } @list_res; if (@list_res) { @@ -375,7 +375,7 @@ wish to access and any applicable user name and password."), $o->{printer}{CRLF}); - #color_depth + #-color_depth if ($db_entry{BITSPERPIXEL}) { my @list_col = @{$db_entry{BITSPERPIXEL}}; my @col = map { "$_->{DEPTH} $_->{DESCR}" } @list_col; @@ -606,4 +606,4 @@ sub setup_thiskind { #-###################################################################################### #- Wonderful perl :( #-###################################################################################### -1; # +1; |