diff options
| author | pad <pad@mandriva.com> | 1999-09-14 14:50:50 +0000 |
|---|---|---|
| committer | pad <pad@mandriva.com> | 1999-09-14 14:50:50 +0000 |
| commit | 0aa7a9e98c3b51085c87aa13d61eef8e3f694626 (patch) | |
| tree | 06c3462cb7af3adb37d3a4606dd43d2604b88eec /perl-install/printer.pm | |
| parent | 951e65ef820631665dbeddf6cfb43afce034efb9 (diff) | |
| download | drakx-0aa7a9e98c3b51085c87aa13d61eef8e3f694626.tar drakx-0aa7a9e98c3b51085c87aa13d61eef8e3f694626.tar.gz drakx-0aa7a9e98c3b51085c87aa13d61eef8e3f694626.tar.bz2 drakx-0aa7a9e98c3b51085c87aa13d61eef8e3f694626.tar.xz drakx-0aa7a9e98c3b51085c87aa13d61eef8e3f694626.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/printer.pm')
| -rw-r--r-- | perl-install/printer.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm index 37f0d61c3..2724b6988 100644 --- a/perl-install/printer.pm +++ b/perl-install/printer.pm @@ -28,8 +28,7 @@ use strict; =cut #-##################################################################################### -use vars qw(%thedb %printer_type %printer_type_inv @papersize_type %fields $spooldir); - +use vars qw(%thedb %printer_type %printer_type_inv @papersize_type %fields $spooldir @entries_db_short @entry_db_description %descr_to_db %db_to_descr); #-##################################################################################### =head2 Imports @@ -230,6 +229,8 @@ my $PRINTER_DB_FILE = "/usr/lib/rhs/rhs-printfilters/printerdb"; my $PRINTER_FILTER_DIR = "/usr/lib/rhs/rhs-printfilters"; + + #-##################################################################################### =head2 Exported constant @@ -317,6 +318,12 @@ sub read_printer_db(;$) { $thedb{$entryname} = $entry; } } + + @entries_db_short = sort keys %printer::thedb; + @entry_db_description = map { $printer::thedb{$_}{DESCR} } @entries_db_short; + %descr_to_db = map { $printer::thedb{$_}{DESCR}, $_ } @entries_db_short; + %db_to_descr = reverse %descr_to_db; + } |