SF.net SVN: ledger-smb: [45] trunk/LedgerSMB

[..hidden..]

Revision: 45
          http://svn.sourceforge.net/ledger-smb/?rev=45&view=rev
Author:   einhverfr
Date:     2006-09-09 00:33:54 -0700 (Sat, 09 Sep 2006)

Log Message:
-----------
Removed dependance on OID's

Modified Paths:
--------------
    trunk/LedgerSMB/IC.pm
    trunk/LedgerSMB/IS.pm
    trunk/LedgerSMB/OE.pm

Modified: trunk/LedgerSMB/IC.pm
===================================================================
--- trunk/LedgerSMB/IC.pm	2006-09-09 06:55:13 UTC (rev 44)
+++ trunk/LedgerSMB/IC.pm	2006-09-09 07:33:54 UTC (rev 45)
@@ -42,8 +42,7 @@
   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 @@
  
   $form->{$id} = 1;
 
-  my %oid = ('Pg'	=> 'a.oid',
-             'PgPP'	=> 'a.oid',
+  my %oid = ('Pg'	=> 'TRUE',
              'Oracle'	=> 'a.rowid',
 	     'DB2'	=> '1=1'
 	    );

Modified: trunk/LedgerSMB/IS.pm
===================================================================
--- trunk/LedgerSMB/IS.pm	2006-09-09 06:55:13 UTC (rev 44)
+++ trunk/LedgerSMB/IS.pm	2006-09-09 07:33:54 UTC (rev 45)
@@ -46,8 +46,7 @@
   my $translation;
   my $partsgroup;
   
-  my %oid = ( 'Pg'	=> 'oid',
-              'PgPP'	=> 'oid',
+  my %oid = ( 'Pg'	=> 'TRUE',
               'Oracle'	=> 'rowid',
 	      'DB2'	=> '1=1'
 	    );

Modified: trunk/LedgerSMB/OE.pm
===================================================================
--- trunk/LedgerSMB/OE.pm	2006-09-09 06:55:13 UTC (rev 44)
+++ trunk/LedgerSMB/OE.pm	2006-09-09 07:33:54 UTC (rev 45)
@@ -626,8 +626,7 @@
     $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 @@
   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_inventory {
   my ($dbh, $myconfig, $form) = @_;
 
-  my %oid = ( 'Pg'	=> 'oid',
-              'PgPP'	=> 'oid',
+  my %oid = ( 'Pg'	=> 'TRUE',
+              'PgPP'	=> 'TRUE',
               'Oracle'	=> 'rowid',
 	      'DB2'	=> '1=1'
 	    );


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.