diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-09-09 07:33:54 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-09-09 07:33:54 +0000 |
| commit | 266c26a6ea04bb2ebd17b3c5daf4dbc5c3ab6ea9 (patch) | |
| tree | 6ee46a4a240e0481c9af44fd3b391fcf8cee788f /LedgerSMB | |
| parent | 43629eb68af5e8af74b72576f56f359bf975bd07 (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
Diffstat (limited to 'LedgerSMB')
| -rwxr-xr-x | LedgerSMB/IC.pm | 6 | ||||
| -rwxr-xr-x | LedgerSMB/IS.pm | 3 | ||||
| -rwxr-xr-x | LedgerSMB/OE.pm | 11 |
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' ); |