SF.net SVN: ledger-smb:[2838] branches/1.2/LedgerSMB

[..hidden..]

Revision: 2838
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2838&view=rev
Author:   einhverfr
Date:     2010-01-22 18:54:03 +0000 (Fri, 22 Jan 2010)

Log Message:
-----------
Fixing id in mailer.pm, correcting data input issue in CT.pm

Modified Paths:
--------------
    branches/1.2/LedgerSMB/CT.pm
    branches/1.2/LedgerSMB/Mailer.pm

Modified: branches/1.2/LedgerSMB/CT.pm
===================================================================
--- branches/1.2/LedgerSMB/CT.pm	2010-01-15 01:06:41 UTC (rev 2837)
+++ branches/1.2/LedgerSMB/CT.pm	2010-01-22 18:54:03 UTC (rev 2838)
@@ -43,6 +43,7 @@
     my $sth;
     my $ref;
     my $arap = ( $form->{db} eq 'customer' ) ? "ar" : "ap";
+    $form->{db} = ( $form->{db} eq 'customer' ) ? "customer" : "vendor";
     my $ARAP = uc $arap;
 
     if ( $form->{id} ) {
@@ -563,6 +564,7 @@
     # connect to database
     my $dbh = $form->{dbh};
 
+    $form->{db} = ( $form->{db} eq 'customer' ) ? "customer" : "vendor";
     # delete customer/vendor
     my $query = qq|DELETE FROM $form->{db}
 					WHERE id = ?|;
@@ -580,6 +582,7 @@
 
     # connect to database
     my $dbh = $form->{dbh};
+    $form->{db} = ( $form->{db} eq 'customer' ) ? "customer" : "vendor";
 
     my $where = "1 = 1";
     $form->{sort} = ( $form->{sort} ) ? $form->{sort} : "name";
@@ -875,6 +878,7 @@
     my $where = "1 = 1";
     $form->{sort} = "partnumber" unless $form->{sort};
     my $sortorder = $form->{sort};
+    $form->{db} = ( $form->{db} eq 'customer' ) ? "customer" : "vendor";
     my %ordinal   = ();
     my $var;
     my $table;
@@ -1056,6 +1060,7 @@
     # connect to database
     my $dbh = $form->{dbh};
 
+    $form->{db} = ( $form->{db} eq 'customer' ) ? "customer" : "vendor";
     my $query;
 
     if ( $form->{db} eq 'customer' ) {
@@ -1122,6 +1127,7 @@
 
     my ( $self, $myconfig, $form ) = @_;
 
+    $form->{db} = ( $form->{db} eq 'customer' ) ? "customer" : "vendor";
     my $dbh = $form->{dbh};
     my $query = qq|
 		DELETE FROM parts$form->{db}
@@ -1189,6 +1195,7 @@
 sub retrieve_item {
 
     my ( $self, $myconfig, $form ) = @_;
+    $form->{db} = ( $form->{db} eq 'customer' ) ? "customer" : "vendor";
 
     # connect to database
     my $dbh = $form->{dbh};

Modified: branches/1.2/LedgerSMB/Mailer.pm
===================================================================
--- branches/1.2/LedgerSMB/Mailer.pm	2010-01-15 01:06:41 UTC (rev 2837)
+++ branches/1.2/LedgerSMB/Mailer.pm	2010-01-22 18:54:03 UTC (rev 2838)
@@ -54,7 +54,7 @@
     my $boundary = time;
     $boundary = "LSMB-$boundary";
     $domain =~ s/(.*?\@|>)//g;
-    my $msg_id = "..hidden..";
+    my $msg_id = "<..hidden..>";
 
     $self->{contenttype} = "text/plain" unless $self->{contenttype};
 


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