diff options
Diffstat (limited to 'perl-install/printer')
| -rw-r--r-- | perl-install/printer/main.pm | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm index a39514b08..8abd74157 100644 --- a/perl-install/printer/main.pm +++ b/perl-install/printer/main.pm @@ -1934,6 +1934,14 @@ sub poll_ppd_base { # Remove the old entry delete $thedb{$ppdkey}; my $newkey = $key; + # User-added PPD file, mark it + if ($ppd =~ m!printerdrake/!i) { + $newkey .= ", " . N("user-supplied"); + } + # Newly added PPD file, mark it + if ($ppdfile eq "/usr/share/cups/model/$ppd") { + $newkey .= ", " . N("NEW"); + } if (!$printer->{expert}) { # Remove driver part in recommended mode $newkey =~ s/^([^\|]+\|[^\|]+)\|.*$/$1/; @@ -1957,6 +1965,12 @@ sub poll_ppd_base { $newkey =~ s/^([^\|]+\|)([^\|]+)(\|.*|)$/$1$oldmodel$3/; } + # Do not overwrite another entry which has the + # same key, consider different PPD files with + # the same identity as a bug and drop them + if ($thedb{$newkey}) { + next; + } # Create the new entry $thedb{$newkey}{ppd} = $ppd; $thedb{$newkey}{make} = $mf; @@ -2078,10 +2092,24 @@ sub poll_ppd_base { } } + # User-added PPD file, mark it + if ($ppd =~ m!printerdrake/!i) { + $key .= ", " . N("user-supplied"); + } + # Newly added PPD file, mark it + if ($ppdfile eq "/usr/share/cups/model/$ppd") { + $key .= ", " . N("NEW"); + } # Remove duplicate "recommended" tags and have the # "recommended" tag at the end $key =~ s/(\s*$sprecstr)(.*?)(\s*$sprecstr)/$2$3/; $key =~ s/(\s*$sprecstr)(.+)$/$2$1/; + # Do not overwrite another entry which has the same + # key, consider different PPD files with the same identity + # as a bug and drop them + if ($thedb{$key}) { + next; + } # Create the new entry $thedb{$key}{ppd} = $ppd; $thedb{$key}{make} = $mf; |