More Customer Fixes

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1885 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 22 insertions, 0 deletions

diff --git a/scripts/customer.pl b/scripts/customer.pl
index 27e3d4d0..bef642ec 100644
--- a/scripts/customer.pl
+++ b/scripts/customer.pl
@@ -56,6 +56,28 @@ sub get {
         
 }
 
+
+sub add_location {
+    my ($request) = @_;
+    my $customer = LedgerSMB::DBObject::Customer->new({base => $request, copy => 'all'});
+    $customer->set( entity_class=> '2' );
+    $customer->save_location();
+    $customer->get();
+
+    
+    $customer->get_metadata();
+
+    my $template = LedgerSMB::Template->new( 
+	user => $user, 
+	template => 'customer', 
+	path => 'UI/Customer',
+	locale => $request->{_locale}, 
+        format => 'HTML');
+    $request->{script} = 'Customer/customer';
+    $template->render($customer);
+	
+}
+
 =pod
 
 =over