diff options
| author | Daouda Lo <daouda@mandriva.com> | 2004-10-19 07:57:44 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2004-10-19 07:57:44 +0000 |
| commit | 945c24889ab1a397da3725ab68ee534cbe520a61 (patch) | |
| tree | cca0e145b2e57ba5c79636d23c97effe1dd70d68 /perl-install/standalone/printerdrake | |
| parent | 4517ae583412a97b5f6d48cf7f53e462949acb0e (diff) | |
| download | drakx-backup-do-not-use-945c24889ab1a397da3725ab68ee534cbe520a61.tar drakx-backup-do-not-use-945c24889ab1a397da3725ab68ee534cbe520a61.tar.gz drakx-backup-do-not-use-945c24889ab1a397da3725ab68ee534cbe520a61.tar.bz2 drakx-backup-do-not-use-945c24889ab1a397da3725ab68ee534cbe520a61.tar.xz drakx-backup-do-not-use-945c24889ab1a397da3725ab68ee534cbe520a61.zip | |
- perl_checker fixes
Diffstat (limited to 'perl-install/standalone/printerdrake')
| -rwxr-xr-x | perl-install/standalone/printerdrake | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake index 3499b90f3..e80b8abb9 100755 --- a/perl-install/standalone/printerdrake +++ b/perl-install/standalone/printerdrake @@ -128,7 +128,6 @@ printer::printerdrake::init($printer, $security, $in, undef); # GTK2 main window -my $error = 0; my $stringsearch = ''; sub HelpSystem() { exec("drakhelp --id printerdrake") unless fork() }; @@ -255,7 +254,7 @@ my @toolbwg = map { ); my ($tbadd, $tbdefault, $tbedit, $tbdel, $_tbref, $_tbconfig) = @toolbwg; GrayDelEdit(); -foreach ($tbadd, $buttorcheck{add}) { defined $_ and $_->set_sensitive($printer->{SPOOLER} ne "rcups")}; +foreach ($tbadd, $buttorcheck{add}) { defined $_ and $_->set_sensitive($printer->{SPOOLER} ne "rcups") }; $localtree->parent->parent->set_sensitive($printer->{SPOOLER} ne "rcups"); $nb->set_current_page(1) if $printer->{SPOOLER} eq "rcups"; @@ -338,8 +337,7 @@ sub RefreshRemotePrintersFull { next LOOP if defined($printer->{configured}{$p->{queuename}}); # Apply string search to all fields, not only the printer name my $queue = $p->{queuename}; - my $server = ($p->{ipp} ? - $p->{ipp} : $printer->{remote_cups_server}); + my $server = $p->{ipp} || $printer->{remote_cups_server}; my $description = $p->{description}; my $location = $p->{location}; my $searchstr = "$queue|$server|$description|$location"; @@ -352,8 +350,7 @@ sub RefreshRemotePrintersFull { my $state = ($printer->{SPOOLER} !~ /cups/ ? N("Unknown") : (printer::cups::queue_enabled($queue) ? N("Enabled") : N("Disabled"))); - my $server = ($p->{ipp} ? - $p->{ipp} : $printer->{remote_cups_server}); + my $server = $p->{ipp} || $printer->{remote_cups_server}; my $description = $p->{description}; my $location = $p->{location}; my $default = ($queue eq $printer->{DEFAULT} ? "X" : ""); @@ -420,7 +417,7 @@ sub Delete() { sub ConfigCUPS() { deactivate_mainwindow(); printer::printerdrake::config_cups($printer, $security, $in, undef); - foreach ($tbadd, $buttorcheck{add}) { defined $_ and $_->set_sensitive($printer->{SPOOLER} ne "rcups")}; + foreach ($tbadd, $buttorcheck{add}) { defined $_ and $_->set_sensitive($printer->{SPOOLER} ne "rcups") }; $localtree->parent->parent->set_sensitive($printer->{SPOOLER} ne "rcups"); $nb->set_current_page(1) if $printer->{SPOOLER} eq "rcups"; Refresh($stringsearch); @@ -430,7 +427,6 @@ sub ConfigCUPS() { sub deactivate_mainwindow() { $us->{wnd}{rwindow}->set_sensitive(0); gtkset_mousecursor_wait(); - $error = 0; } sub activate_mainwindow() { |