From 5a1b3f62d0b7babc2443518d88e129cd9faf0711 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 29 Aug 2007 21:35:46 +0000
Subject: Correcting a few issues with customers.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1473 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/CT.pm                | 10 +---------
 LedgerSMB/Customer.pm          | 33 ---------------------------------
 LedgerSMB/DBObject/Customer.pm | 33 +++++++++++++++++++++++++++++++++
 3 files changed, 34 insertions(+), 42 deletions(-)
 delete mode 100644 LedgerSMB/Customer.pm
 create mode 100644 LedgerSMB/DBObject/Customer.pm

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/CT.pm b/LedgerSMB/CT.pm
index c398b108..e870323e 100644
--- a/LedgerSMB/CT.pm
+++ b/LedgerSMB/CT.pm
@@ -247,7 +247,6 @@ sub _save_vc {
 			curr = ?
 			startdate = ?
 			enddate = ?
-			invoice_notes = ?
 			bic = ?
 			iban = ?
 		WHERE id = ?|;
@@ -258,7 +257,7 @@ sub _save_vc {
                 $form->{bcc}, $form->{business_id}, $form->{sic_code}, 
                 $form->{language_code}, $form->{pricegroup_id},
                 $form->{curr}, $form->{startdate}, $form->{enddate},
-                $form->{invoice_notes}, $form->{bic}, $form->{iban}, $form->{id}
+                $form->{bic}, $form->{iban}, $form->{id}
             ) || $form->dberror(__FILE__.":".__LINE__.":$query");
             $updated = 1;
         }
@@ -338,13 +337,6 @@ sub _save_vc {
             $sth = $dbh->prepare($query);
             $sth->execute($form->{entity_id}, $form->{bic}, $form->{iban}) || 
                 $form->dberror($query);
-            $query = qq|
-                insert into entity_invoice_notes (entity_id, note)
-                values (?, ?)
-            |;
-            $sth = $dbh->prepare($query);
-            $sth->execute($form->{entity_id}, $form->{notes}) || 
-                $form->dberror($query);
             
     }
 }
diff --git a/LedgerSMB/Customer.pm b/LedgerSMB/Customer.pm
deleted file mode 100644
index ef25c4a1..00000000
--- a/LedgerSMB/Customer.pm
+++ /dev/null
@@ -1,33 +0,0 @@
-package LedgerSMB::DBObject::Customer;
-
-use base qw(LedgerSMB);
-use LedgerSMB::DBObject;
-
-sub save_to_db {
-    
-    my $self = shift @_;
-    
-    my $id;
-    if ($self->{id} >= 1) {
-        $id = $self->{id};
-    }
-    else {
-        $id = $self->next_customer_id();
-    }
-    $id = $self->save($id, $self->{discount}, $self->{tax_included}, 
-        $self->{creditlimit}, $self->{terms}, $self->{customernumber}, 
-        $self->{cc}, $self->{bcc}, $self->{business_id}, $self->{language},
-        $self->{pricegroup}, $self->{currency}, $self->{startdate}, 
-        $self->{enddate}
-    );
-    
-    # Undef in the created field causes the system to use now() as the current
-    # creation date.
-    $self->location_save(
-        $id, 1, $self->{line_one}, $self->{line_two}, $self->{line_three},
-        $self->{city_province}, $self->{mailing_code}, $self->{country}, undef
-        
-    );
-    return $id;
-}
-1;
\ No newline at end of file
diff --git a/LedgerSMB/DBObject/Customer.pm b/LedgerSMB/DBObject/Customer.pm
new file mode 100644
index 00000000..ef25c4a1
--- /dev/null
+++ b/LedgerSMB/DBObject/Customer.pm
@@ -0,0 +1,33 @@
+package LedgerSMB::DBObject::Customer;
+
+use base qw(LedgerSMB);
+use LedgerSMB::DBObject;
+
+sub save_to_db {
+    
+    my $self = shift @_;
+    
+    my $id;
+    if ($self->{id} >= 1) {
+        $id = $self->{id};
+    }
+    else {
+        $id = $self->next_customer_id();
+    }
+    $id = $self->save($id, $self->{discount}, $self->{tax_included}, 
+        $self->{creditlimit}, $self->{terms}, $self->{customernumber}, 
+        $self->{cc}, $self->{bcc}, $self->{business_id}, $self->{language},
+        $self->{pricegroup}, $self->{currency}, $self->{startdate}, 
+        $self->{enddate}
+    );
+    
+    # Undef in the created field causes the system to use now() as the current
+    # creation date.
+    $self->location_save(
+        $id, 1, $self->{line_one}, $self->{line_two}, $self->{line_three},
+        $self->{city_province}, $self->{mailing_code}, $self->{country}, undef
+        
+    );
+    return $id;
+}
+1;
\ No newline at end of file
-- 
cgit v1.2.3