summaryrefslogtreecommitdiffstats
path: root/perl-install/printer
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2004-08-24 06:54:25 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2004-08-24 06:54:25 +0000
commitf3cd1cd19ba02bc33e70def4aed3b7c778db31e9 (patch)
treeb86f6d5ac327ad8e3eb47c007252d19b2b49340a /perl-install/printer
parentd908c2375e33adc336c2a994f49be7875d5140e9 (diff)
downloaddrakx-backup-do-not-use-f3cd1cd19ba02bc33e70def4aed3b7c778db31e9.tar
drakx-backup-do-not-use-f3cd1cd19ba02bc33e70def4aed3b7c778db31e9.tar.gz
drakx-backup-do-not-use-f3cd1cd19ba02bc33e70def4aed3b7c778db31e9.tar.bz2
drakx-backup-do-not-use-f3cd1cd19ba02bc33e70def4aed3b7c778db31e9.tar.xz
drakx-backup-do-not-use-f3cd1cd19ba02bc33e70def4aed3b7c778db31e9.zip
Fixed "ask_from_()" calls in "config_cups()" (Thanks Olivier for breaking it in your perl-checker clean-up in 1.119 --> 1.120).
Diffstat (limited to 'perl-install/printer')
-rw-r--r--perl-install/printer/printerdrake.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 9e3e4bfa3..424be3450 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -56,7 +56,7 @@ sub config_cups {
my $browsepoll = printer::main::makebrowsepolllist($printer);
my $buttonclicked;
#- Show dialog
- if ($in->ask_from(
+ if ($in->ask_from_(
{
title => N("CUPS printer configuration"),
messages => N("Here you can choose whether the printers connected to this machine should be accessible by remote machines and by which remote machines.") .
@@ -123,7 +123,7 @@ If some of these measures lead to problems for you, turn this option off, but th
while (!$subdone) {
# Entry should be edited when double-clicked
$buttonclicked = "edit";
- $in->ask_from(
+ $in->ask_from_(
{ title => N("Sharing of local printers"),
messages => N("These are the machines and networks on which the locally connected printer(s) should be available:"),
ok => "",
@@ -198,7 +198,7 @@ If some of these measures lead to problems for you, turn this option off, but th
my $oldaddress =
($buttonclicked eq "edit" ?
$sharehosts->{invhash}{$choice} : "");
- if ($in->ask_from(
+ if ($in->ask_from_(
{ title => N("Sharing of local printers"),
messages => N("Choose the network or host on which the local printers should be made available:"),
callbacks => {
@@ -308,7 +308,7 @@ N("Examples for correct IPs:\n") .
while (!$subdone) {
# Entry should be edited when double-clicked
$buttonclicked = "edit";
- $in->ask_from(
+ $in->ask_from_(
{ title => N("Accessing printers on remote CUPS servers"),
messages => N("Add here the CUPS servers whose printers you want to use. You only need to do this if the servers do not broadcast their printer information into the local network."),
ok => "",
@@ -378,7 +378,7 @@ N("Examples for correct IPs:\n") .
my $oldaddress =
($buttonclicked eq "edit" ?
$browsepoll->{invhash}{$choice} : "");
- if ($in->ask_from(
+ if ($in->ask_from_(
{ title => N("Accessing printers on remote CUPS servers"),
messages => N("Enter IP address and port of the host whose printers you want to use.") . ' ' .
N("If no port is given, 631 will be taken as default."),