author | Rich Burridge <rich.burridge@oracle.com> |
Thu, 10 Dec 2015 12:35:02 -0800 | |
changeset 5179 | 07d5ad88cb1d |
parent 335 | 223d5bf98b72 |
child 6720 | 4bf7e80e4d8e |
permissions | -rw-r--r-- |
335
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
1 |
*** a/lib/Foomatic/DB.pm.orig Mon Oct 27 15:51:02 2008 |
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
2 |
--- b/lib/Foomatic/DB.pm Mon Oct 27 15:50:37 2008 |
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
3 |
*************** |
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
4 |
*** 102,108 **** |
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
5 |
} |
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
6 |
|
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
7 |
# Build a new overview |
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
8 |
! my $otype = ($cupsppds ? '-C' : '-O'); |
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
9 |
$otype .= ' -n' if ($cupsppds == 1); |
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
10 |
# Generate overview Perl data structure from database |
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
11 |
my $VAR1; |
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
12 |
--- 102,108 ---- |
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
13 |
} |
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
14 |
|
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
15 |
# Build a new overview |
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
16 |
! my $otype = ($cupsppds ? '-C' : '-C'); |
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
17 |
$otype .= ' -n' if ($cupsppds == 1); |
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
18 |
# Generate overview Perl data structure from database |
223d5bf98b72
7049357 Move foomatic-* stuff to Userland.
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
19 |
my $VAR1; |