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

1 files changed, 15 insertions, 5 deletions

diff --git a/scripts/customer.pl b/scripts/customer.pl
index 8b476995..dfef02cd 100644
--- a/scripts/customer.pl
+++ b/scripts/customer.pl
@@ -17,7 +17,7 @@ Save customer will update or create as needed.
 
 =cut
 
-package LedgerSMB::Scripts::Customer;
+package LedgerSMB::Scripts::customer;
 
 use LedgerSMB::Template;
 use LedgerSMB::DBObject::Customer;
@@ -40,7 +40,7 @@ of the customer informations.
 
 sub get {
     
-    my ($class, $request) = @_;
+    my ($request) = @_;
     my $customer = LedgerSMB::DBObject::Customer->new(base => $request, copy => 'all');
     my $result = $customer->get($customer->{id});
     
@@ -51,6 +51,16 @@ sub get {
         
 }
 
+sub add {
+    my ($request) = @_;
+    my $customer = LedgerSMB::DBObject::Customer->new(base => $request, copy => 'all');
+    
+    my $template = LedgerSMB::Template->new( user => $user, 
+	template => 'customer.html', language => $user->{language}, 
+        format => 'html');
+    $template->render($results);
+}
+
 =pod
 
 =over
@@ -68,7 +78,7 @@ as well as customer/Company name.
 =cut
 
 sub search {
-    my ($class, $request) = @_;
+    my ($request) = @_;
     my $customer = LedgerSMB::DBObject::Customer->new(base => $request, copy => 'all');
     my $results = $customer->search($customer->{search_pattern});
     
@@ -93,7 +103,7 @@ customer as needed, and will generate a new Company ID for the customer if neede
 
 sub save {
     
-    my ($class, $request) = @_;
+    my ($request) = @_;
     my $customer = LedgerSMB::DBObject::Customer->new(base => $request, copy => 'all');
     my $result = $customer->save_to_db();
     
@@ -103,4 +113,4 @@ sub save {
     $template->render($result);    
 }
 
-1;
\ No newline at end of file
+1;