diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-07 14:56:34 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-07 14:56:34 +0000 |
| commit | 08cfcfa9b2470a6fb9c72f51c8ee37f80ecbdcde (patch) | |
| tree | 459656706ae301e22da80278bd259fffda07e59d /perl-install/printer/office.pm | |
| parent | 44f3167ffb750f41302128aed4dd763449dd5c50 (diff) | |
| download | drakx-backup-do-not-use-08cfcfa9b2470a6fb9c72f51c8ee37f80ecbdcde.tar drakx-backup-do-not-use-08cfcfa9b2470a6fb9c72f51c8ee37f80ecbdcde.tar.gz drakx-backup-do-not-use-08cfcfa9b2470a6fb9c72f51c8ee37f80ecbdcde.tar.bz2 drakx-backup-do-not-use-08cfcfa9b2470a6fb9c72f51c8ee37f80ecbdcde.tar.xz drakx-backup-do-not-use-08cfcfa9b2470a6fb9c72f51c8ee37f80ecbdcde.zip | |
fix new data structure usage
Diffstat (limited to 'perl-install/printer/office.pm')
| -rw-r--r-- | perl-install/printer/office.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/printer/office.pm b/perl-install/printer/office.pm index 31e54a4fc..d8479249a 100644 --- a/perl-install/printer/office.pm +++ b/perl-install/printer/office.pm @@ -98,7 +98,7 @@ sub configureoffice { # the "Generic Printer" my @parameters = $suites{$suite}{param}; $configfilecontent = removeentry(@parameters, $configfilecontent); - $configfilecontent = addentry($parameters[0], $parameters[1] . $suites{$suite}{perl} . $spoolers{$printer->{SPOOLER}{print_command}}, $configfilecontent); + $configfilecontent = addentry($parameters[0], $parameters[1] . $suites{$suite}{perl} . $spoolers{$printer->{SPOOLER}}{print_command}, $configfilecontent); # Write back Star Office configuration file return eval { output("$::prefix$configfilename", $configfilecontent) }; } @@ -207,7 +207,7 @@ sub makestarofficeprinterentry { # symbol correctly. $configfile = removeentry("ports", "$queue=", $configfile); $configfile = addentry("ports", - "$queue=/usr/bin/perl -p -e \"s=16#80 /euro=16#80 /Euro=\" | /usr/bin/" . $spoolers{$printer->{SPOOLER}{print_command}} . " -P $queue", + "$queue=/usr/bin/perl -p -e \"s=16#80 /euro=16#80 /Euro=\" | /usr/bin/" . $spoolers{$printer->{SPOOLER}}{print_command} . " -P $queue", $configfile); # Make printer's section $configfile = addsection("$queue,PostScript,$queue", $configfile); @@ -261,7 +261,7 @@ sub makeopenofficeprinterentry { # symbol correctly. $configfile = removeentry($queue, "Command=", $configfile); $configfile = addentry($queue, - "Command=/usr/bin/perl -p -e \"s=/euro /unused=/Euro /unused=\" | /usr/bin/" . $spoolers{$printer->{SPOOLER}{print_command}} . " -P $queue", + "Command=/usr/bin/perl -p -e \"s=/euro /unused=/Euro /unused=\" | /usr/bin/" . $spoolers{$printer->{SPOOLER}}{print_command} . " -P $queue", $configfile); # "Comment" line $configfile = removeentry($queue, "Comment=", $configfile); |