summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-09-09 07:33:54 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-09-09 07:33:54 +0000
commit266c26a6ea04bb2ebd17b3c5daf4dbc5c3ab6ea9 (patch)
tree6ee46a4a240e0481c9af44fd3b391fcf8cee788f
parent43629eb68af5e8af74b72576f56f359bf975bd07 (diff)
Removed dependance on OID's
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@45 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-xLedgerSMB/IC.pm6
-rwxr-xr-xLedgerSMB/IS.pm3
-rwxr-xr-xLedgerSMB/OE.pm11
3 files changed, 8 insertions, 12 deletions
diff --git a/LedgerSMB/IC.pm b/LedgerSMB/IC.pm
index 52ad9654..276992fc 100755
--- a/LedgerSMB/IC.pm
+++ b/LedgerSMB/IC.pm
@@ -42,8 +42,7 @@ sub get_part {
for (keys %$ref) { $form->{$_} = $ref->{$_} }
$sth->finish;
- my %oid = ('Pg' => 'a.oid',
- 'PgPP' => 'a.oid',
+ my %oid = ('Pg' => 'TRUE',
'Oracle' => 'a.rowid',
'DB2' => '1=1'
);
@@ -1384,8 +1383,7 @@ sub include_assembly {
$form->{$id} = 1;
- my %oid = ('Pg' => 'a.oid',
- 'PgPP' => 'a.oid',
+ my %oid = ('Pg' => 'TRUE',
'Oracle' => 'a.rowid',
'DB2' => '1=1'
);
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm
index 5bb7ef63..2cb4d259 100755
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -46,8 +46,7 @@ sub invoice_details {
my $translation;
my $partsgroup;
- my %oid = ( 'Pg' => 'oid',
- 'PgPP' => 'oid',
+ my %oid = ( 'Pg' => 'TRUE',
'Oracle' => 'rowid',
'DB2' => '1=1'
);
diff --git a/LedgerSMB/OE.pm b/LedgerSMB/OE.pm
index 25bcecd3..3e372e29 100755
--- a/LedgerSMB/OE.pm
+++ b/LedgerSMB/OE.pm
@@ -626,8 +626,7 @@ sub retrieve {
$sth->finish;
for (qw(printed emailed queued)) { $form->{$_} =~ s/ +$//g }
- my %oid = ( 'Pg' => 'oid',
- 'PgPP' => 'oid',
+ my %oid = ( 'Pg' => 'TRUE',
'Oracle' => 'rowid',
'DB2' => '1=1'
);
@@ -930,8 +929,8 @@ sub order_details {
my $translation;
my $partsgroup;
- my %oid = ( 'Pg' => 'oid',
- 'PgPP' => 'oid',
+ my %oid = ( 'Pg' => 'TRUE',
+ 'PgPP' => 'TRUE',
'Oracle' => 'rowid',
'DB2' => '1=1'
);
@@ -1608,8 +1607,8 @@ sub adj_onhand {
sub adj_inventory {
my ($dbh, $myconfig, $form) = @_;
- my %oid = ( 'Pg' => 'oid',
- 'PgPP' => 'oid',
+ my %oid = ( 'Pg' => 'TRUE',
+ 'PgPP' => 'TRUE',
'Oracle' => 'rowid',
'DB2' => '1=1'
);