From eb7e5f65f488f890c1d9fb6d56bed8a40fe8a595 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 21 Nov 2007 05:42:22 +0000
Subject: More Customer Fixes

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1885 4979c152-3d1c-0410-bac9-87ea11338e46
---
 scripts/customer.pl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'scripts')

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
-- 
cgit v1.2.3