From f7b7cf7d5044d155b5b02c026d4d682423f40655 Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Thu, 30 Jan 2003 18:40:46 +0000
Subject: - Conservation of option settings also for queues with PostScript PPD
 files   or when switching between PostScript PPD file and Foomatic. - Fixed
 tree structure of main window in expert mode. - Several smaller bug fixes.

---
 perl-install/printer/main.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install/printer/main.pm')

diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index b92aff0f1..529224fe2 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -278,7 +278,7 @@ sub read_configured_queues($) {
 		if (!$printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{queuedata}{ppd}) {
 		    $printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{queuedata}{ppd} = '1';
 		}
-		$printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{queuedata}{driver} = 'CUPS/PPD';
+		$printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{queuedata}{driver} = 'PPD';
 		$printer->{OLD_QUEUE} = "";
 	    }
 	    $printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{queuedata}{make} ||= "";
@@ -305,7 +305,7 @@ sub read_configured_queues($) {
 
 sub make_menuentry {
     my ($printer, $queue) = @_;
-    my $spooler = $shortspooler_inv{$printer->{SPOOLER}}{short_name};
+    my $spooler = $spoolers{$printer->{SPOOLER}}{short_name};
     my $connect = $printer->{configured}{$queue}{queuedata}{connect};
     my $localremote;
     if ($connect =~ m!^(file|parallel|usb|serial):! || 
@@ -630,7 +630,7 @@ sub set_usermode {
     if (!(-f $file)) {
 	@file_content = ();
     } else {
-	open F, "< $file" or die "Cannot open $file!";
+	open F, "< $file" or die "Cannot open $file for reading!";
 	@file_content = <F>;
 	close F;
     }
@@ -646,7 +646,7 @@ sub set_usermode {
     }
 
     # Write back modified file
-    open F, "> $file" or die "Cannot open $file!";
+    open F, "> $file" or die "Cannot open $file for writing!";
     print F @file_content;
     close F;
 
-- 
cgit v1.2.1